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NEWSLETTER INFORMATION 


THE TRS-80 MONTHLY NEWSLETTER IS PUBLISHED BY H & E COMPUTRONICS INC. 


THE TRS-80 MONTHLY NEWSLETTER 1s NOT SPONSORED, NOR IN ANY WAY OFFICIALLY SANCTIONED BY 
- RADIO. SHACK. - 


THE PURPOSE OF. THE TRS-80 MONTHLY NEWSLETTER !S TO PROVIDE AND EXCHANGE INFORMATION 
RELATED TO THE CARE, USE AND APPLICATION OF THE TRS-80 COMPUTER SYSTEM. 


H & E COMPUTRONICS INC. DOES NOT TAKE FINANCIAL RESPONSIBILITY FOR ERRORS IN PUBLISHED 
PROGRAMS, USERS ARE ADVISED TO CAREFULLY EDIT VITAL PROGRAMS. 


THE TRS-80 MONTHLY NEWSLETTER ENCOURAGES COMMENTS, QUESTIONS AND SUGGESTIONS. WE 
PUBLISH ARTICLES AND PROGRAMS WRITTEN BY OUR READERS. COMPUTRONICS INC. WILL PAY CON- 
TRIBUTIONS FOR ARTICLES AND PROGRAMS PUBLISHED IN THE NEWSLETTER. 


“SUBSCRIPTIONS ARE $24 PER YEAR ($30 PER YEAR-CANADA AND MEXICO, $36 PER YEAR OUTSIDE OF THE 
UNITED STATES, CANADA AND MEXICO-AIR MAIL). BACK ISSUES ARE AVAILABLE ($2 PER ISSUE). 


HAVE ANY URGENT QUESTIONS? WE HAVE TELEPHONE HOURS - 9 A.M. - 5 P.M. OTHER TIMES, LEAVE A 
“MESSAGE ON. OUR ANSWERING MACHINE. WE WILL PROMPTLY RETURN ALL CALLS (COLLECT). 

LOCAL TRS-80 CLUBS 

THE COMPUTER CLUB OF ORLANDO (FLORIDA) - Contact M. Scott Adams - (305) 862-6917. 


TRS-80 USER’S GROUP OF CHICAGO (ILLINOIS) = - Contact John C. Longstreet, 1201 W. Chase Avenue, Chicago, 
INinois 60626 or. call 761-2742. 


THE SOLANO TRS-80 USER'S CLUB - Fairfield, California - Contact Dave or Steve Irwin - (707) 422-3347. 


TRS-80 USER’S GROUP OF WALNUT CREEK (CALIFORNIA) - Contact John Snyder, 712-C Country Wood, Walnut 
~ Creek, California 94598 or call (415) 938-9669. 


INLAND COMPUTER SOCIETY - Contact Sandy Sparks, 3359 Second Street, Riverside, California 92501 or call 
(714). 256-5319 or (714) 784-3499. 


TRS-80 USER'S GROUP OF SANTA ANA - Contact Arnold Vagts, 3713 S. Parton Street, Santa Ana, California 92707 
or call (714) 549-7021. 


TRS-80 BUG ING. OF FLORIDA - Contact Larry J. Harrell, 2100 N. Atlantic Avenue #402, Cocoa Beach, Florida 32931 
or call (305) 784-0456. 


ADVERTISING IN THE TRS-80 MONTHLY NEWSLETTER 


$200 PER PAGE... $100 PER HALF PAGE... $50 PER QUARTER PAGE... .$25 PER EIGHTH PAGE... $10 FORUP 
TO 50 WORDS.IN OUR NEW CLASSIFIED AD DEPARTMENT (STARTING JULY, 1979)... 


THESE PRICES ARE VALID FOR ISSUES 13 AND 14 ONLY. ADS MUST BE SUBMITTED BY THE 10th OF EACH 
MONTH IN-ORDER TO APPEAR IN THE FOLLOWING MONTHS ISSUE. PAYMENT MUST BE INCLUDED WITH AD. 
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RAMDO SELECTION PROGRAM 
Ei '! 
CR. PETER SHEMET A 


F E fy Me os ods coe cee oe oes ee ots OBS oes St eS Os oes COS CEs ode CEs Sot AES SES oes oes OC NES OOS Oee OBt OES OOS Es eee coe SEs Cos ES SES See ORt Cee Cee SES CES CEs ces tes See Oey Sey See Coy ot 


REM RAM SELECTION FPROGGRAM 
PRET] “oR OF ETER SHEME IP 


Fe E i" Bo OED oS Oe OBS CES oe OES Be OBS OBS oe OBS OB. Teo CeO OBL OES che Wee OMS OES Ode OME OMS OSD OO ode Oo Oo oO OES OBS OBO Dae OED OED ORS DO OS OBS OBS OES Cet Oe BS OBS OL OBS OS Oe ee Oy 


( REM GIVEN AM ITMTEGER HM. REPRESENTING FORPULATION STSE AMO AM 
A REM INTEGER EF FEPRESENTING SAMPLE SISE THIS PROGRAM WILL 
A REM CHOOSE DIFFERENT RAWGOM INTEGERS FROM THE SET OF 

REM INTEGERS BETHWEEM 2 AMD PM. 
PEEP dsiististidte ce dc Ses es ds is es dg se ed es so 
LS 
RAM C td 
PRIAT “HOM MAM MEMBERS ARE IM SOUR POPULATION "4 
IHMFLUT fa 
PRINT “HOM LARGE A RANCOM SAMPLE DO SOL WAM OG 
THPuUT EF: 
BIth Aho, Beko 
Far T=1 TO WN: ACTe=L INEST I 
Fok J=1 TO k 
Fes PiPd Doe Pd os 
Be Jo =Fie Fs 
AOR o SRC hd 
hH= 5h a1 
HET Tt 
FR INT 
PRINT " THE SAMPLE CHOICES ARE PRINTED 4+ TO A LINE FROM" 
PRIHT " LEFT TO FRIGHT. THESE CHOICES FOLLOW "" 
PRINT 
FOr J=1 TO FE OPRINT Beto. oMERT oT 
EMD 


ee foe ah hr eh 


st 


i we 
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CHECKBOOK MAINTENANCE PROGRAM 
By Dr. Peter Shenkin 


~The CHECKBOOK MAINTENANCE PROGRAM is written for use with a 16K Level II 
machine. Use is made of data files on the cassette recorder. This 
program effectively stores an entire check register on cassette tape. 
The greatest limitation is that at present the register can only 
handle 100 items. This problem may be easily rectified at some cost 
of efficiency or with some extra hardware. At present the entire 
register is read into the memory at once. More items could be fit 
if only part of the register had to be loaded at one time. For 
all program functions to still work this would entail dual cassette 
tapes(& expansion interface) or disk. If all REM statements are 
removed and the arrays are redimensioned it should be possible to 
fit many more than 100 items in the register. 


The functions which may be performed by the CHECKBOOK MAINTENANCE 
PROGRAM (CMP) are listed in the menu,program lines 2020-2080. 

The items should be somewhat self explanatory. Items 5. and 7. 
deserve some mention. "5.REVIEW OF CHECK EXPENSE CATEGORIES" lists 
the different categories of expense and income by which entries in 
the register may be grouped. Up to 100 categories may be used. As 
written 15 categories are used.(lines 3020-3080). The reader may 
easily change this. 


The following example shows the versatility of the program. 

Penny P. is about to start a new checkbook. The date is October 1,1978. 
Penny has $623.54 in her checking account. The next check she writes 
will be number 1366. From October 1 to October 10 Penny makes the 
following transactions: 

October 1,1978-Check # 1366-Sears-Roebuck - $50.00 
October 1,1978-Check # 1367-0 & R Utilities- $104.77 
October 1,1978-Check # 1368-N.Y. Telephone - $ 61.95 


October 3,1978- DEPOSIT - Paycheck - $343.43 
October 3,1978-Check # 1369- Kerri Shenkin 7360.08 
October 6,1978-Check # 1370- Caldor -$ 20.14 
October 6,1978-Check # 1371- Rickel -$ 12.00 


October 10,1978-Check #1372- N.C.C. Assoc. -$ 61.50 
October 10,1978-Check #1373- Shell Oil Co. -$ 25.00 
October 10,1978-Check #1374- Gulf Oil Corp.-$ 29.26 
October 10,1978-Check #1375- Commerce Bank -$210.00 


- Penny runs the program. The menu is printeds It reads as follows: 


CHECKBOOK MAINTENANCE PROGRAM 
CHOOSE NUMBER OF DESIRED OPTION 
1. SET UP NEW CHECKBOOK 
2. INPUT OLD CHECKBOOK FROM TAPE 
3. ADD TO OLD CHECKBOOK 
4, OUTPUT CHECKBOOK TO CASSETTE 
5. REVIEW OF CHECK EXPENSE CATEGORIES 
6, PRINT. CHECKBOOK 10 ENTRIES AT A TIME 
7. LIST BY CATEGORY 
8, END THIS PROGRAM 62 
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PENNY presses 1 and then the ENTER button.(From now on all of Penny's 
replies to machine inquiries will be underlined. In addition, 
all of Penny's replies are followed by ENTER.). The dialogue follows: 


INITIAL BALANCE ? 623,54 
INITIAL CHECK NUMBER? 1366 
INITIAL DATE IN FORM MM/DD/YY? 10/01/78 


INPUT DATE ? 10/01/78 (This is date of present transaction. ) 
INPUT C FOR CHECK,D FOR DEP.,CM FOR MISC. CHARGE? C 

CHECK ISSUED TO? SEARS-ROEBUCK 

CHECK CATEGORY TYPE? 7 

CHECK AMOUNT? 50,00 


CHK NO, DATE CHK ISSUED TO TYPE AMOUNT BAL. 
10/01/78 $623.54 
1366 10/01/78 SEARS-ROEBUCK ? $50.00 $573.54 


IF EKROR INPUT E, OTHERWISE ENTER? (PENNY presses ENTER) 
ANY MORE ENTRIES (Y/N)? Y¥ 


INPUT DATE? 10/01/78 
INPUT C FOR CHECK,D FOR DEP.,CM FOR MISC. CHARGE? C 


(Penny goes on as above for the remaining two October 1 checks. 
Then when the machine asks for more entries Penny says "no." 
ANY MORE ENTRIES (Y/N)? N 

CHECKBOOK MAINTENANCE PROGRAM 
CHOOSE NUMBER OF DESIRED OPTION 
SET UP NEW CHECKBOOK 
INPUT OLD CHECKBOOK FROM TAPE 
ADD TO OLD CHECKBOOK 
OUTPUT CHECKBOOK TO CASSETTE' 
REVIEW OF CHECK EXPENSE CATEGORIES 
PRINT CHECKBOOK 10 ENTRIES AT A TIME, 
LIST BY CATEGORY 
END THIS PROGRAM 
OPTION #? 4 
POSITION BLANK TAPE ONTO CASSETTE PLAYER 
PRESS PLAY AND RECORD BUTTONS, 
PRESS £NTER WHEN READY, 
? (PENNY presses ENTER)- The data is loaded onto the cassette. 


Make a note of where on tape the data is. Do not record over a 
previously used part of tape.(Unless erased by bulk tape eraser) 


(The 8 part MENU is printed again.) 


OPTION # ? 8 
ARE YOU SURE YOU WANT TO END(Y/N)? ¥ 
READY 


CONT ON FW DF 
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tO: 


Penny rewinds the data cassette and stores it. On October 3 she is 
ready for 2 more entries in her checkbook. She runs the program. 
When the menu appears she does the following: 


OPTION #? 2 

PUT & POSITION DATA TAPE IN CASSETTE #-1. 

PRESS PLAY BUTTON 

PRESS ENTER WHEN READY. 

? (Penny presses enter. The cassette loads the data. The MENU appears. 
Penny chooses option 3.ADD TO OLD CHECKBOOK 


OPTION #? 3 


INPUT DATE ? 10/03/78 

INPUT C FOR CHECK,D FOR DEP.,CM FOR MISC. CHARGE? D 
WHAT WAS DEPOSITED? PAYCHECK 

DEPOSIT CATEGORY TYPE = ? 50 

AMOUNT OF DEPOSIT ? 343,43 


CHK NO. DATE CHK ISSUED TO TYPE AMOUNT BAL. 


10/01/78 . $406.82 
-1 1/03/08: PAYCHECK 50 $343.43 $750.25 


IF ERROR INPUT E, OTHERWISE ENTER? (Penny presses ENTER) 
ANY MORE ENTRIES(Y/N)? x 


¢Penny completes her checkbook until Oct. 10. She decides to review 
her store charge card payment record. 


OPTION #? 7 
INPUT CATEGORY NUMBER OF INTEREST? 7 


CHK NO. DATE CHK ISSUED TO TYPE AMOUNT BAL. 


1366 10/01/78 SEARS-ROEBUCK 4 $50.00 $573.54 
1370 10/06/78 CALDOR 7 $20.14 $370.11 
1371 10/06/78 RICKEL 7 $12.00 $358.11 


“TOTAL FOR THIS ITEM = $ 82.14 : 
PRESS ENTER TO RETURN TO MENU? (Penny presses ENTER) 


OPTION # ? 6 


The entire check register will now be printed, 10 entries at a time in 
the above format. Penny may save the entire checkbook on tape at any 
time, The program does several other WhAngs including the recognition 
of several errors. 


A planned expansion of this program will be to disk. One other addition 
will be the ability to update the entire register whenever an error 

is found, no matter how far back. Presently this ability only exists 
for. errors in the present entry. 
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THECKEOOK MAINTENANCE PROGRAM 
E's! 


CR. FETER SHENE IN 


RET CHECK BOOK MAINTENANCE PROGRAM 
REM Br DR. FETTER SHENKIN 


RET THIS SELF-DOCUMENTING FROGRAM WILL KEEP 


REM CHECEBOOK ITEMS MAY BE STORED ON CASSETT 


REM THIS WAY BE CHANGED BY CHANGING DIMENSTO 
REN TO RUN PROGRAM DELETE REM STATENENTS FOr: 
REM JUST CLORAD PROGRAM AND RLIN, THERE SHOULD 
166 CLEAR 6aee 

161 Veiee 

dae DIM CNecvo, DEC o, RECO. THOM Os AMO. Bt 

165 GOSUB Son 

die REM CHECK MENU - 

i2e GOSUE ene 


PRM Om ob hs Ge on 


Wilda lol Po Bo ba ho a RB 


1. 
T 


1226 FRINT #-1. CNR CTS. OSCTO, P€CTI. THEI D. ACT. Bel 
1255 RETURN 

1266 REM SUBROUTINE FOR FRINTING FREVIOUS BALANCE 
262 PRINTUSING £13; D$eIl-Lo; BeI-to 

S RETURN 

3 RETURN 


65 


245 FEM SUBROUTINE FOR CUTFUTTING CHECKBOOK INFO. 


PE Dey sbeebs cbc cect chs a cs oh oe oh RS AC AS SS oS A SES 


TRACK OF ALL 


REM CHECEBOCE ITEMS. GDERPOSITS AND EXPENSES MAY BE 
RET CATEGURIZED, UP TO daa CATEGORIES ARE ALLODED. 
REM CATEGORIES ENTERED FROM FROG. LINES S@Z0-sue3 


E AMD READ 


RET IN FROM CASSETTE. AT PRESENT CIMENSIONING &I5 SET UP 
REM FOR 168 ITEMS IN YOUR CHECKBORK AT ANY ONE TIME. 


HOVAR. VY IN ted 


HEMNORY SPACE. 


BE NO PROBLEM 


BAL. !" 


SSHRHRE. HH SFSHHRHH, HH" 


396 REM SUBROUTINE WITH PRINTUSING FORMAT “VARIABLES 

deme H$="CHE NO. DATE CHE ISSUED To TY'FE AMOUR T 
1Si SS="RRHR * 4 ms sl +H 

1@sea 21¢=" “ “a 

16953 RETURN 

Liga REM SUBROUTINE PRINTING FORMATS 

1118 FRINTUSING H#; 224 

1133 RETURA 

1206 REM SUBROUTINE FOR PRINTING CHECKBOOR INFORMATION 

1216 FRINTUSING 22; CNA Ta; OSC LO: PEC Ta THOT OG ACTS BET 

1215 RETURN 

tease REM SUBROUTINE FOR INFUTTING CHECK BOOK INFO FROM TAFE 
L2s5 INPUT #-2. CNC To, De To. POT. THC TS. ACT, Bed 

de46 RETURN 


ONTO TAPE 


SFHHHHH, HH" 
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1508 REM SUBROUTINE TO ENTER NEW ENTRY’ 
14549 INPUT "INPUT DATE "3 D#<I> 
1515 PRINT "INPUT C FOR CHECK,D> FOR DEP..CM FOR MISC. CHARGE": 
o A52@ INPUT 29s. | x = 
4525 IF 29$="C" GoTo 1546 
1526 IF Z3$="Db" GOTO 1576 
4527 IF Z29$="CM" GOTO 1606 
1530 PRINT “INPUT ERROR. TRY AGAIN” :GOTO 1545 
4546 CNHCI9SCI :CIsctl+4 
455@ INRUT "CHECK ISSUED TO"; P$¢I> 
4555 INPUT "CHECK CATEGORY TYPE"; THC1> 
456@ INPUT "CHECK AMOUNT": AC I> 
1565 B¢1>9=BCI-1)-ACI>D 
4569 GOTO 1610 2 
 AS7O CNHCID=-4 
4575 INPUT “WHAT WAS DEPOSITED "; P#<I> 
_ 4580 INPUT"DEPOSIT CATEGORY TYPE = "3 THCID 
4595 INPUT. "AMOUNT OF DEPOSIT "3 ACT? 
1590 BCI>=BCI-1>+ACI> 
1535 GOTO 1616 
“1600 CNKCID=-2 
1662 INPUT "WHY CHARGED To ACCT. "sP$CI> 
1664 INPUT "CHARGE AMOUNT"; ACI> 
. 2605 INPUT "CHARGE CATEGORY TYPE = "i TXCI> | 
4606 BCI>=BCI-12-ACID : 
- 4608 GOTO i610 
-464@ CLS. 
41613 GOSUB 1106 
1614 GOSUB 1260 
1645 GOSUB 1206 
4648 FOR K=1 TO 4:PRINT:NEXT K 
£626 PRINT "IF ERROR INPUT E. OTHERWISE ENTER"; : INPUT Ze¢ 
. 4624 IF Zes="E" GOTO 41623 
4622 GOTO i625 
1622 Z@$="22Z2" IF Z9$="C" THEN CISCI-4 
41624 CLS:GOTO 154a — 
4625 PRINT “ANY MORE ENTRIES ¢¥/ND"3 : INPUT Z9% 
4630 IF Z9$="N" GOTO 1690 | 
1635 IF 23$=""" GOTO 1650 
1646 PRINT "INPUT ERROR. TRY AGAIN. ":GOTO 1625 
4656 I=I+4 :CLS5:GOTO 1516 
1696 CNXCG)>=1 
“4699 RETURN 
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REM MENU SUBROUTINE 
CLS 
PRINT" CHECKBOGK MAINTENANCE FROGRAM " 


PRINT "4. 5ET UP NEW CHECKBOOK" 

PRINT "=. INPUT OLD CHECKBOOK FROM TAPE" 

PRINT "S. ACD TO OLD CHECKEBOUK" 

PRINT “4. OUTPUT CHECKBOOK To CASSETTE" 

PRINT "S. REVIEW OF CHECK EXPENSE CATEGORIES" 
PRINT "& PRINT CHECKBOOK i6 ENTRIES AT A TIME. " 
PRINT "7. LIST BY CATEGORY" 

PRINT “S. END THIS PROGRAM" 

PRINT: INPUT "OPTION # "ie 

CLS 


GoTo 2aiLe 

RETURN 

REM SUBROUTINE FOR SETTING UF NEW CHECK BOCK 
T=1 ; 

INFUT "INITIAL BALANCE"; Bom 

INFUT "INITIAL CHECK NUMBER": CI 


LONGO VENSO OOS SOs ow 


1. 


CLS 


3 

| 

= GOSUE 1S 
mB RETURA 
4 
a 


TMMEP RPE PRP OW Dp OA MOO bbe @ 


mit] 


REM SUBROUTINE FOR INPUTTING OLD CHECKBOCK FROM 
CLE:FPRINT "PUT & POSITION DATA TAPE IN CASSETTE 
FRINT "PRESS FLAY BUTTON, " 

= PRINT "FRESS ENTER WHEN READY "  INFUT 

2426 INPUT #-1. C01. CNA CBs, BCG>, DECHo 

2426 FOR J=1 TO CNeCe&) 

e446 GOSUE Lose 

e458 NEXT I 

2450 RETURM 


PASM NR oP fe fo Po fo fo of oP oP Ro Pa 
hLREMANMANMM MMM AOGAAGaaggaaae & oa 


ho 

fe 
Bee 
a 
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INFUT" INPUT INITIAL DATE IN FORM MADD YY "5 DSce 


PRINT: FRINT "CHOOSE NUMBER CF DESIRED OFTION" : PRINT 


ON 2 GOSUB 22a. 2400, 2606, 20K, SHUR. S20R, 2500. 3900 


REM NOW WRITE CHECK . MAKE DEPOSIT. OR OTHER CHARGE 


TAPE 


#-1, " 


2680 FEM SUBROUTINE TO ACD TO CHECK BOOK 

2610 GOSUE ismae 

#626 FETURN 

2560 REM SUBROUTINE FOR GUTPUTTING CHECKBOUK TO CASSETTE 
2816 CLE:PRINT"POSITION BLANK TAFE INTO CASSETTE PLAYER" 
2512 PRINT"'PRESS PLAY AND RECORD BUTTONS. " 

2815 PRINT "PRESS ENTER WHEN READY. "“ INPUT @ 

2320 PRINT #-1. C1. CNACHS, Bems. DECRS 

2e38 FOR IT=41 TO CN#Cas 

2846 GOSUB 1245 

2858 NEXT I 

2860 RETURN 
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EO 
NUNN 


ib dal LD Ra Bo fear PP Bs 
Whe So Oa ee ha 
SUG oe Oa Boe ¢ 


A lal tal dal lal tab dad bel Gd Lad dad ed bad bad Lad 


REM SUBROUTINE TO REVIEW EXPENSE CATEGORIES 
PRINT “CATEGORY DESCRIPTION" 


PRINT" 1. LOAM PAYMENT" 

PRINT" z. BANK CARD PAYMENT" 

PRINT ." < MEDICAL EXPENSE" 

REM THIS: SPACE IS TO PUT IN CATEGORIES & DESCRIPTIONS IN 
PRINT 4... HOUSEKEEPING MONEY" 
‘PRINT " at NOR TGAGE 

FRINT " &. HOME EXPENSE. UTILITIES. ETC. " 
FRINT. " %. STORE CHARGE CARD PAYMENT" 
FRINT " mB. INSURANCE" 

FRINT " ae. PAYCHECK DEPOSIT " 

FRINT " SA. CONSULTING FEE " 

PRINT" Sz. NECICAL RETNBURSEMENT" 
PRINT. ms. OTHER BUSINESS INCOME" 
PRINT" a4. MIsct. DEPOSITS" 

PRINT 

INPUT "PRESS ENTER TO RETURN TO MENU"; 25 
RETURN 

REM SUBROUTINE TO REVIEW CHECE BOOK 

CLs 

T=1 

GOSUB 11h 

GOSUB L268 

FOR IT=1 TO CNeacko 

GOSUE Lek 

TF IA8=INTCIAd8> GOSUB Sse 

NEAT I 


FRINT:INFUT"THE END. PRESS ENTER TO RETURN TO MENU. "i 23 
RETURN 

REM SUBROUTINE FOR TEN ENTR'! SCREEN DISPLAY 
IF I=CNX@> RETURN 

PRINT 

INPUT "PRESS ENTER FOR MORE ENTRIES, "s 22 
CLS:GOSUB i160 

RETURN 

REM SUBROUTINE FOR LISTING BY CATEGORIES 

REM E1 15 TOTAL OF ITEM 

Ei1=0 

INPUT "INPUT CATEGORY NUMBER OF INTEREST": 25 
GOSUB tice 

FoR I=4 To CNX 

IF THC12=Z5 GOTO 2566 


= GOTO S558 


GOSUB 1266 
EL=E1L+A¢ 13 
NEXT I 


MO PRINT: PRINT "TOTAL FOR THIS ITEM =#"; EL 


PRINT" PRESS ENTER TO FETURN TO MENU": -INFUT Zz 
RETURN 

REM SUBROUTINE TO END 

CLS 

PRINT "RRE ‘YOU SURE ‘TOL! WANT TO ENDCY ANOS CINFUT 235% 
IF. 223="N" RETURN 

IF 23¢="" END 

PRINT "INPUT ERROR. TR’? AGAIN. "GOTO soi 
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BITS AND PIECES 
by 
HOWARD Y. GOSMAN 


SURVEY PARTICIPATION 

94% of our earlier subscribers (#1 - #3999) returned our survey (pages 47 and 48). The response was just 
fantastic. We do appreciate the active participation by so many subscribers and wish to encourage future 
subscriber involvement. The many helpful suggestions will help us improve the quality of each future 
Newsletter issue. 


The most common suggestions that we received related to the quality of print, quality of program 
printouts, number of typing errors and the size of the Newsletter, (1) As you can see, we have purchased 
typesetting equipment which does give high quality print. (2) Program printouts come from the RADIO 
SHACK LINE PRINTER. Poor quality of the printouts in Issue #1 were due to the use of an old ribbon. We 
did not change the ribbon prior to the printout. We now use a fresh ribbon for printouts and an improved 
method of duplicating these printouts. (3) Hopefully, all typing errors have been eliminated. (4) Thesize 
of the Newsletter has increased from 16 pages (Issue #1) to 24 pages (present issue). Our goal is to reach 
36 pages by Issue #12. Detailed results of survey (especially repair information) will be published next 
month. 


NEW PRODUCTS FROM RADIO SHACK (NEW BUT NOT YET FOR SALE) 
RADIO SHACK will soon be selling a full size disk drive with 250K capacity. Software will include an 
advanced BASIC, FORTRAN, CP/M and more. Probably release date, March, 1979. 


A 3.0 D.O.S. will be released shortly with a new disk manual. In the meantime, make sure that if you do 
have a disk drive, you have the 2.1 D.O.S. with a 50-page manual and 14-page addendum to the disk 
manual. 


RADIO SHACK will be releasing a complete business system for disk (before the end of the year). The 
system will include accounts payable, accounts receivable, inventory control, and payroll. The new 
system will be high quality (especially in comparison to some of the earlier cassette programs sold by 
RADIO SHACK). 


RADIO SHACK will be releasing a large number of new software diskettes and disks before the end of the 
year. Many of the programs were purchased from KILOBAUD. 
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THE NEW TRS-80 MICROCOMPUTER CATALOG 

“RADIO SHACK has just published a brand new TRS-80 MICROCOMPUTER CATALOG (CATALOG 
NO. RSC-2). The catalogs are available at all local RADIO SHACKS (if there are any left.). The full-color 
20-page catalog contains the following new products: (1) TRS-80 SYSTEM DESK ($199), (2) 
TELEPHONE INTERFACE | ($149), (3) RS-232-C SERIAL INTERFACE BOARD ($149), (4) PRINTER 

~ CONNECTION CABLE ($39), (5) TRS-80 TECHNICAL MANUAL ($9.95), (6) TRS-80 QUICK PRINTER 
($499) and (7) a LINE PRINTER STAND ($99). 


NEW FROM MICROTRONIX (PAGE 24) 
RS-232 INTERFACE ($99) - available immediately. 


RADIO SHACK compatibledisk drives ($350) - available immediately. — 


MICROTRONIX has a special case for RADIO SHACK disk drives (as well as disk drives purchased 
anywhere else). The case will hold 3 disk drives. The case has a 16 AMP power supply with a fan and air 
filter (to solve the disk drive heating problem). The cost of the case and 3 disk drives is $1400 (or $300 
without the disk drives). Immediate delivery is available. 


Also. available for immediate delivery - 16K memory ($140) and the RADIO SHACK EXPANSION 
“INTERFACE. 


Three cassettes are available at $9.95 each or 3 for $19.95..... 
(1) ARENUMBERING PROGRAM, (2) APROGRAM FOR MERGING TWO OR MORE PROGRAMS and 
. (8) ASTATEMENT ANALYSIS PROGRAM (locates and lists all branches such as GOTO and GOSUB). 


For-more details, call (800) 523-4550. 


LOWER CASE MODIFICATIONS 

There are a couple of companies selling a lower case modification for the TRS-80. Several readers have 
reported that. the LOWER CASE MODIFICATION doesn’t work. If you have any further information 
related to LOWER CASE MODIFICATIONS, please call. 


RADIO SHACK’S TOLL FREE NUMBER 
You_can: now call. 1-800-433-1679 and reach computer services directly. RADIO SHACK COMPUTER 
SERVICES has a staff of 20 experts that can answer many of your computer questions. In order to avoid ; 
typing up the line, you leave your name and telephone number...and someone on the staff will promptly 
call. you back. This is the same toll-free number that was formerly used by the TANDY COMPUTER 
STORE. 


NEXT MONTH....A COMPLETE RANDOM ACCESS MAILING LIST AND CUSTOMER INFORMATION 
PROGRAM. é 
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ADDENDUM TO LEVEL II BASIC REFERENCE MANUAL 
The following information has been obtained directly from RADIO SHACK and does not appear in the 
LEVEL Il MANUAL: 


1. After an INPUT # is performed from cassette, subsequent READ statements will automatically 
RESTORE data each time a READ is performed. To fix this, simply perform the statement 
POKE16553,255 before the first READ is performed. (LEVEL I! only-not a problem in DISK 
BASIC). 


2. When performing an INPUT # from cassette, the maximum number of bytes which can be read is 
248. This does not affect disk operations. 


3. If the RESET button is pressed when the expansion interface is attached to the TRS-80, any 
programs in memory will be lost.* 


4. \IfaBASIC program is stopped during execution, and alteratios are made to the program, or EDIT 
mode is.entered, then ALL VARIABLES will be set to zero. The program must be RUN again from 
the beginning. 


5. If anLPRINT or LLIST is performed without a TRS-80 lineprinter being attached, the computer 
will “freeze-up”. The user must press RESET or attach a lineprinter and turn it on. 


6. All functions in LEVEL I! BASIC always return single precision values (6-7 digits of accuracy).** 
All trigonometric functions use or return radian angles. Use of degrees angles are described in 
the LEVEL Ii BASIC MANUAL. 

7. Frequent occurrences of SYNTAX errors may be caused by one of two subtle erros. (a) If aletter 
or the @-symbol were typed with the SHIFT key depressed, the letters will appear to be correct 


on the screen, but are really invalid. Try retyping the line, and beware of the SHIFT key. (b) Some- 
times a pace is required in a BASIC statement. The following line is incorrect: 


IFD<OD=¢ 


The characters “OD” represent a double precision zero. The correct statement reads (note the 
space and THEN) 


IFD<% THEN D=G 
8. The format of a CLOAD? command to verify from cassette #2 is 


CLOAD#-2,?"filename” 
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*FREEZE-UP PROBLEMS | 

In our readers survey, several people have complained about random freeze-up problems. Reports from 
readers state that these “freeze-ups” have occurred from time to time, but not frequent enough to 
necessitate repairs. To lose as little information (data or program) as possible, turn off the interface, then 
press the reset button. You will lose any data in the interface (if you have more than 16K), but will not lose 
your program (or data with 16K). These “freeze-ups” may be due to heat. One reader claims that he has 
eliminated the problem by placing a small fan next to his computer. 


**ALL FUNCTIONS HAVE 6-7 DIGIT ACCURACY : : 

Functions such as square root, exponents, sine, cosine, etc. yield only 6 or 7-digit accuracy (despite the 
implied 16-digit accuracy). The 6 or 7-digit accuracy is especially disastrous is business programs 
requiring exponentiation. We have compiled several routines that will give 16-digit accuracy to most 
functions (especially exponents and square roots). They will be published next month. 


NEVER PULL OUT THE CASSETTE RECORDER JACKS! 

Robert Andrew (#6238) found a simple method of avoiding the sometimes necessity of pulling out the 
cassette recorder jacks. PRESS FAST FORWARD or REWIND on the cassette recorder. Type PRINT 
#1,A on your keyboard, then PRESS ENTER. The tape will move exactly 40 units (according to the tape 
counter). Any program or datain memory will not be affected. PRESS STOP (on the cassette recorder) to 
move less than 40 units. To move more than 40 units, PRESS PRINT #-1,A: PRINT #-1,A (to move 80 
units) or PRINT #-1,A: PRINT #-1,A: PRINT #-1,A (to move 120 units), etc. 


SPECIAL SOFTWARE FOR DOCTORS 

The. Canadian. Medical Association in Ottawa, Canada has developed a package of programs for the 
TRS-80. LEVEL Il. These programs called A,B,C--Appointment (including registration}, Billing 
(including accounting) and Cumulative Patient Profiles. These programs are currently being tested and 
will soon be available to interested practitioners. Write to CAPO SYSTEM (Computer-Aided Physicians’ 
Offices), Dr. J.F. Brandejs, Director, The Canadian Medical Association, P.O. Box 8650, Ottawa, 
Ontario, Canada K1G 068. 


- OUR NEW SOFTWARE CATALOG 

Please do not request our free SOFTWARE CATALOG (advertised in BYTE, KILOBAUD, CREATIVE 
COMPUTING and PERSONAL COMPUTING). Subscribers will be the first ones to get it. The new 
catalog will contain the largest list of TRS-80 software available. 


S-100 BUS...TELEPHONE INTERFACE II 


The S-100 BUS and TELEPHONE INTERFACE Il will be released by RADIO SHACK within the next 
90-days. 
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INVENTORY CONTROL FOR TRS-80 
by 
DR. PETER SHENKIN 


The management of inventory is one of the businessman's prime responsibilities. Knowing what is in 
stock and how much it cost, knowing what items have been selling, knowing whatitems need reordering, 
etc. can make the difference between a successful and an unsuccessful enterprise. With the advent of the 
microcomputer in general and the TRS-80 in particular, it is now possible for the small businessman to 
implement a computerized inventory system which will do all of the above, if desired, and more. The 
accompanying program is written for a 16K Level Il machine and needs neither expansion interface nor 
printer to run. Obviously a printer would be quite handy for printouts of reports. As listed, the system 
is dimensioned for 50 different kinds of inventory items. With REM statements deleted there should be 
memory space for about 100 items. A disk system would increase the allowable number of items quite a 
bit. The beauty of the below system is that it works on a computer which sells for less than $1000. 


To see what the system can do one need only RUN the program and examine the menu which appears as 
follows: 


INVENTORY CONTROL 
ENTER NUMBER OF DESIRED OPTION. 


. ADD ITEM TYPES TO INVENTORY FILE (OR START FILE) 

. INVENTORY LIST (ENTIRE OR BY CLASS OR BY VENDOR) 
. PROCESSING CHANGES OF INVENTORY AMOUNTS 

. READ INVENTORY FILE FROM CASSETTE 

. WRITE INVENTORY FILE ONTO CASSETTE 

. UPDATE TO BEGIN NEW INVENTORY PERIOD 

. ACTIVITY REPORT 

. EDITING INVENTORY FILE 

. END THIS PROGRAM 


OWN OO hWND = 


INPUT OPTION NUMBER & PRESS ENTER? 


The first option to choose is 4 if an inventory file is already stored on cassette. Otherwise 1 is the 
choice as a file must be created. We'll choose option 1 here. For our inventory items we picked some 
selections from the-Radio Shack 1979 catalog and invented amounts for variables not mentioned in the 
catalog (e.g. dealer cost, amount of sales). Our procedure will be to enter seven items into inventory, 
manipulate the inventory somewhat, save it on cassette, then read the cassette file and add five 
additional items to inventory. 
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In the following, our replies to machine queries will be enclosed in “ ” marks. Comments will 


generally be enclosed in ( ). Machine output will always be printed in CAPITALS. 
On the last line of ane we press “14” and ENTER. We see: 
ADDITIONAL INVENTORY ITEM SUBROUTINE 
HAS ANY EXISTING FILE BEEN READ FROM THE TAPE? (Y/N)? “ Y” 
_ (Try.N here and you are sent back to the MENU. Try anything besides Y or N and you will see 


INPUT-ERROR. ENTER AGAIN. Then the machine cycles back to the above Y/N question.) 


INPUT DATA FOR NEXT ITEM 


ITEM NUMBER ? “ 26-1151 ” / 
DESCRIPTION (< 20 CHARACTERS) ? “ SCREEN PRINTER ” 
VENDOR NUMBER ? “ 26” 


(Instead of a vondor number an item class code could be put in here. In fact, we have just taken as 
our vendor number that part of the R.S. catalog number coming before the hyphen.) 


QUANTITY ON HAND oe oe ae 

LAST ORDER UNIT COST 2? “ 400 ” 
SELLING PRICE ? " 599 ” 
AVERAGE UNIT COST SO bt 


(The average cost per unit is automatically recomputed after the record of each new shipment is 
entered into this program via the use of option 3.) 

REORDER POINT : Y eas | ee 
(When making use of option 2, INVENTORY LIST, the user may obtain a list of all those items 
whose QUANTITY ON HAND have fallen below their REORDER POINT) 


MAXIMUM INVENTORY ..: 2 ee 
#SOLD.THIS INV. PERIOD £ oehi 
# SOLD LAST INV. PERIOD 7?" 0” 
# SOLD 2 INV. PER. AGO 7?" 0” 


(The first two of these last three items are used in the ACTIVITY REPORT of option 7.) 


-(We.now see the following printout for this item:) 


ITEM.NO. >. 26-1151 DESCRIPT. :SCREEN PRINTER 
VENDOR NO. . >. 26 
QUANT. ON HAND oe LAST UNIT COST: 400 


SELLING PR. : 599: AVERAGE COST: 350 
REORDER PT. : 0 MAX INV. : 2 
ORDERS THIS INV. PERIOD: 1 

ORDERS LAST INV. PER: 0 PREV. PER: 0 
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IF OK PRESS 1, OTHERWISE PRESS 0? “1” 
(if 0 is pressed here all the questions about this item are repeated. For any question already 
answered correctly just press ENTER. For those questions answered in error just fill in the correct 
entry when prompted.) 


DO YOU DESIRE MORE ENTRIES? (Y/N)? “ Y ” . 
(An N here sends you back to the menu, but with the just entered item now on the inventory list.) 


INPUT DATA FOR NEXT ITEM. 
ITEM NUMBER 2 “26-1150” 


From here on we just repeat the above process for item 26-1150 and then for 5 additional items, fora 
total of 7 items on our inventory file. After the seventh item, which is a multitester kit, # 28-4014, when 
we are prompted with DO YOU DESIRE MORE ENTRIES (Y/N)? we reply with N. Then we find ourselves 
back at the menu. 


Now we are shipped 2 screen printers at a cost to us of $420 a piece. On the menu by INPUT OPTION 
NUMBER & PRESS ENTER? we press 3. and ENTER. The following takes place: 


CHANGING INVENTORY AMOUNTS 


FOR EACH ITEM OF INTEREST IT WILL BE NECESSARY TO ENTER THE ITEM NUMBER AND PRESS 
ENTER. INFORMATION ABOUT THAT ITEM WILL THEN BE DISPLAYED. THEN THE USER MUST 
INDICATE WHETHER THE ITEM SUPPLY IS BEING DIMINISHED OR INCREASED, AND BY HOW 
MUCH. 
(The above stays on the screen for a few seconds. If this time is not sufficient it may be increased 
by changing the 200 in step 1695 to some larger integer.) 


ITEM NUMBER :? "26-1151" 


ITEM NO. > 26-1151 DESCRIP. ‘SCREEN PRINTER 
. VENDOR NO. e226 

QUANT. ON HAND : 4 LAST UNIT COST: 400 

SELLING PR. : 599 AVERAGE COST: 350 

REORDER PT. : 0 MAX INV. : 2 

ORDERS THIS INV. PER: 0 PREV. PER: 0 


INPUT A FOR ADDITIONS, D FOR DELETIONS, R FOR END 

ene 

INPUT NO. OF UNITS TO ADD? “2” 

UNIT COST? “ 

PRESS 1 AND ENTER IF IN ERROR. JUST ENTER IF OK? (Press ENTER) 
(If 1 was pressed here the old information about the item would be printed as above and we would 
start from INPUT A FOR ADDITIONS.) , 
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DO YOU DESIRE MORE ENTRIES?(Y/N)? rs 
(A Y here.would have brought us. to ITEM NUMBER _ :?) 


(A check of the 26-1151 record at this moment would show a QUANT. ON HAND of 3 and an 
AVERAGE COST of 396.66) 


We now see the MENU in front of us again. Suppose we want a listing of all information we have on all 
items in inventory. This information cannot reasonably fit on one line we have chosen to present it a 
block at a time just as we have presented the information on item 26-1151 several times already. The 
information on each item stays on the screen for about 10 seconds. Then information on thenext item in 
inventory is displayed. If you wish to examine the information on one item for a longer length of time, 
pressing SHIFT @ will stop processing and keep the given item in display. A touch of any button has the 
_ effect of resuming processing. There are many types of reports which may be displayed on the screen. 
Many times, one prefers to display just a little information about each item but to print information on 
several items together. This is done inthe ACTIVITY REPORT of option 7. We shall see the activity report 
later. To get out INVENTORY LIST we choose option 2 and get: 


CHOOSE DESIRED OPTION AND PRESS ENTER 

1. COMPLETE tNVENTORY LIST 

2. INVENTORY LIST. BY VENDOR 

3. LIST OF [TEMS BELOW REORDER POINT 

OPTION #? “1.” 

(We now get the printout, one ‘item ata time, about 10 seconds per item. When done we auto- 
matically return to the MENU.) 


Now we wish to save the seven items in ourinventory on atape file. This involves option 5. We press 5 and 
ENTER and get:: : j 


PREPARE TAPE RECORDER AND INV. TAPE. 

PRESS ENTER WHEN READY? 

(We put a new cassette into the cassette player, wind the cassette past the leader and press 
down the PLAY and RECORD buttons. We then press ENTER. The inventory file is now recorded 
onto the cassette. We can now turn off the computer.) 


Now suppose it is a little later and we wish to place 5 more names on the inventory file. We get the 
program tape and load the inventory program into the TRS-80. We might try option 1 first, but the 
question HAS ANY EXISTING FILE BEEN READ FROM TAPE?(Y/N)? should remind us to load the 
inventory data tape. We answer N to the question and try option 4. We get the following: 
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PREPARE TAPE RECORDER AND INV. TAPE. 

PRESS ENTER WHEN READY? 
(We press ENTER and the inventory file is read into the machine. A note is in order here. On our 
TRS-80 we have experienced some difficulty in reading data files into the machine from cassette 
with 100% accuracy. The reading in step 4 may have to be repeated several times before it comes 
out correct. The machine may generate an error (FD error occurs alot). Just press RUN and start 
again) 


After the file is read the MENU is again displayed. We now use option 1 to add 5 more items to the 
inventory file, for a total of 12. When done we press N in answer to the DO YOU DESIRE MORE 
-ENTRIES?(Y/N)? question and return to the MENU. 


We now decide that we would like to change the MAXIMUM INVENTORY amount for the SCREEN 
PRINTER from 2 to 3. To do this option 8, EDITING INVENTORY FILE is necessary. We choose option 8 
and see: 


EDITING ITEM ENTRIES 


FOR EACH ITEM MAKE THE APPROPRIATE CHANGES AND PRESS ENTER AFTER EACH CHANGE. 
JUST PRESS ENTER WHEN ITEM IS NOT CHANGED. 


(In about 3 seconds we see: 


ITEM NUMBER (99999 FOR RETURN)? “26-1151” 

(Then we get:) 
ITEM NO. 726-1151 DESCRIP. :SCREEN PRINTER 
VENDOR NO. :26 


QUANT. ON HAND: 3 LAST UNIT COST: 400 
SELLING PR. : 599 AVERAGE COST : 396.66 
REORDER PT. : 0 MAX INV. : 2 

ORDERS THIS INV. PERIOD : 1 

ORDERS LAST INV. PER: 0 PREV. PER: 0 


ITEM NUMBER 
DESCRIPTION (| 20 CHAR) 
VENDOR NUMBER 
QUANTITY ON HAND 
LAST ORDER UNIT COST 
SELLING PRICE - 
AVERAGE UNIT COST 
REORDER POINT 
MAXIMUM INVENTORY 

# SOLD THIS INV PERIOD 
# SOLD LAST INV PERIOD 
# SOLD 2 INV. PER. AGO 


(We press ENTER) 
(We press ENTER) 
(We press ENTER) 
(We press ENTER) 
(We press ENTER) 
(We press ENTER) 
(We press ENTER) 
(We press ENTER) 
“gon 

(We press ENTER) 
(We press ENTER) 
(We press ENTER) 


NY VY VV NV VV YN VY NY 


~J 
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(The block printout of all the information about the SCREEN PRINTER now flashes on the screen, 
but the MAX INV. entry now equals 3. On the screen we also see the question:) 


DO YOU DESIRE MORE ENTRIES ?(Y/N)? “N " 
(The MENU now flashes on the screen.) 


We would like a listing of the activity (sales) of each item for several consecutive inventory periods. An 
~ inventory period could be a year, quarter, month, week or even a day depending upon the enterprise. 
This involves option 7. ACTIVITY REPORT. We choose option 7 and get: 


ITEM NO. DESCRIPTION ON HAND THIS PER. LAST PER. 


26-1151 SCREEN PRINTER “3 1 0 
26-1150 LINE PRINTER 2 4 5 
26-1140 | EXPANSION INTER 4 5 3 
64-2227. SOLDER KIT 15 3 5 

~ 98-174 METAL DETECTOR 2 1 ft) 
28-4014 MULTITESTER KIT 3 2 3 
28-4004 = INTERCOM KIT 4 3 4 
28-182. ~~ LIE DETECTOR KIT 2 9 ny) 
21-1531 40 CHANNEL CB 1 1 ) 

1 1 0 


31-2076. 120 WATT RECEIVER 


PRESS ENTER FOR MORE OF REPORT? (We press ENTER) 


ITEM NO. DESCRIPTION ON HAND THIS PER. LAST PER. 
40-2028 SPEAKER SYSTEM 2 2 2 
12-775 SHORTWAVE RADIO 3 2 3 


END OF REPORT. PRESS ENTER TO RETURN TO MENU? (We press ENTER) 
(Since this system was designed to be usable without a line printer the ACTIVITY REPORT is 
displayed 10 entries at a time. This may be easily modified. It actually makes the report very usable 
for someone with a SCREEN PRINTER.) 


There are several things we have not done yet. Option 6, UPDATE TO BEGIN NEW INVENTORY 
PERIOD, is used at the beginning of an inventory period. When invoked, this option sets all ORDERS 
THIS INV. PERIOD entries to 0, changes all ORDERS LAST INV. PER eniries to the old ORDERS THIS 
INV. PERIOD entries for the same item and also replaces the PREV. PER entries with the old ORDERS 

_ LAST INV. PER entries. For example, if we invoked option 6 and then ran an ACTIVITY REPORT, the first 
two lines of the. activity report would be: 


ITEM NO. DESCRIPTION ON HAND THIS PER. LAST PER. 
26-1151 SCREEN PRINTER 3 0 1 


I 
C. 


‘CONT 


End oS APPLICATIONS Sea 


This inventory system is far from complete. Its biggest drawback is probably that it is not designed for 
use by either line printer or disk. This limits applicability in an obvious manner. Hard copy reports are 
generally desired and many small businesses have more than 100 or so types of inventory items. It 
happens that it is relatively simple to redesign the system to handle both printer and disk. Another 
possible probiem is that the integrity of data recorded on cassette does not seem as high as that recorded 
on disk. We have gotten many recording errors. Possibly a higher quality tape would be helpful. We're 
just not sure. But it would be quite something if 599.95 was changed to 199.95 without anyone knowing. 


The astute reader will notice that no provision has been made for entirely removing an item from 
inventory. This would be a simple addition. It probably would also be handy to have a routine which 
would sort inventory data so that reports come printed either sequentially by !TEM NO. or possibly 
alphabetically by DESCRIPTION. Option 2 does have the ability to produce a list of all items which have 
reached the REORDER PT. 


Everyone who uses inventory reports has some of his own pet reports. These probably are not included 
here. if the necessary data is included then it should be relatively simple to produce just about any report. 
If the information has not been provided then the user may modify the inventory file accordingly. This 
should also be easy. Remember, however, the more that is in the file, the fewer the number of items that 
can fit on the file. 


2 WHEN YOU THINK SOFTWARE THINK BCC! <@ 


EXPENSE REPORTING SYSTEM— 522.95 Level il 
Requires 16K of RAM. Keeps track of up to 50 Expense Categories for a full 
year. Gives monthly. quarteriy and annua! totals of expenses. For the smail 


Dusiness or home use 
j BACKGAMMON—$19 95 Levels! & li 
[om Requires 16K of RAM. PLAY AGAINST THE COMPUTER and Jose. The com- 
F puter plays a pretty good game! 
SPACE TREK-80— $9.95 Levelsi& ll 


J Requires 16K of RAM. Play a strange game of blowing-up Stars to find star 

SOFTWA RE: bases. Watch out for those antimatter mines. Tune-in on your AM radio for 
strange sound effects 

YES! QUALITY SOFTWARE FOR THE TRS-S0 IS 


ASTRONOMY SIGHT REDUCTION—3$24.95 Levels 1&1 
Ole eee +o eae comn. VER NE Requires 8K of RAM. For Astronomers. Convert Right Ascension and Declination of 
SOFTWARE NOW WITH EVEN MORE AVAIL. celestial objects to Azimuth (compass dir.) & altitude (degrees). Creates a 24 hour 
ABLE IN THE VERY NEAR FUTURE. ALSO WE table in siderial and standard times 


cane’. 2 DEVELOP CUSTOM DESIGNED SOFTWARE FOR 
Paice Sore: NEED. WRITE US FOR A FREE ORDER NOW! All programs come on quality cassettes. Programs are available 
Q on diskette for an additional charge of $7.00 per order NYS residents add 7% 
Check boxes of items js heing ordered: 


# of items ordered. _... FGtal amount enclosed . .AH items must be 
prepaid) 


Bourrut Consulting Corporation 


B35 21 friendly rd. 
smithtown ny 11787 
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INVENTORS See 
BR. PETER SHENK IN 


REM INVENTORY CONTROL FOR TRS-ae 

REM BY DR. PETER SHENKIN 

FREE DAD cbs eters cds tects ode cs is oe ots oe a os AS A A A A 2 CO OS oS 
REM THIS PROGRAM I5 DESIGNED FOR A 16K LEVEL II TRS-8e 
REM IN ITS FRESENT FORM AN EXPANSION INTERFACE IS NOT 

REM NEEDED. A LIMITATION IS THAT ONLY 5S@ DIFFERENT KINDS 
REM OF ITEMS MAY BE HANDLED. FOR ESTABLISHMENTS WITH 
REM . LARGER INVENTORIES. OF WHERE HARD COPY IS NEEDED WE 
REM SWIGGEST THE RF. 5. BUSINESS SYSTEM. A DISK-BASED VERSION 
REM OF THIS PROGRAM IS AVAILABLE. 

Pe EDD steve abe etd od oe es he ab ee A AS A A A A A 
PRINT 

-CLEAR 25 ae 

DIM NScSas, D$e5a5, VEC, OSG, USS, Poses. ACC Se 

DIM RPLCS@>. RACSA>. S03, Sao 

NI=2 


GOSUE S2ne 

CLS oe 

PRINT" THVENTOR CONTROL" 
PRINT " ENTER NUMBER OF DESIRED OFTION. " 
PRINT 


PRINT "4. ADD ITEM TYPES TO INVENTORY FILECOR START FILE" 
PRINT "2. INVENTORY LISTCENTIRE OF BY CLASS OR BY VENDOR" 
PRINT "3, PROCESSING CHANGES OF INVENTORY AMOUNTS" 
PRINT "4. READ INVENTORY FILE FROM CASSETTE" 
PRINT "S. WRITE INVENTORY FILE OOTO CASSETTE” 
PRINT "8. UPDATE TO BEGIN NEW INVENTORY PERIOD" 
PRINT "7. ACTIVITY REPORT" 
PRINT "8. EDITING INVENTORY FILE" 
PRINT "3. END THIS PROGRAM" 
PRINT 
INPUT “INFUT OPTION NUMBER & PRESS ENTER"; OF 
ON OF GOSUB 148, 1308, 1600, 1500, 2200, 2500, 2aGG, [Sea 2oeR 
GOTO 4a0 
REM SUBROUTINE FOR ADDING ITEM TYPES TO INVENTOR’ FILE 
CLS 
PRINT "ADDITIONAL INYENTORY ITEM SUBROUTINE” : PRINT 
PRINT “HAS ANS EXISTING FILE BEEN READ FROM TAPE? ¢oN33 
INFUT Z29¢ 
IF 29¢="N" GOTO 1236 
IF Z29¢=""" GOTO 1875 
A GOSUE S2e0 
GOTO 1846 y 
I=NI+4 
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41986 CLS 
1985 PRINT “INPUT CATA FOR NEXT ITEM. ": PRINT 
409@ GOSUB 676a 
422@ REM EXHIBIT CISPLAY FOR THIS ITEM 
1244 GOSUB 6aaG 
4250 GOSLIE 6288 
1266 IF Z8=6 GOTO 1980 
14274 GOSUB 6saq 
428@ NI=NI+1:IF Z9¢= "¥" GOTO 41475 
1298 RETURN 
4304 REM SUBROUTINE GIVING INVENTORY LIST ooh 
1348 CLS:PRINT “CHOOSE DESIRED OPTION AND PRESS ENTER" 
4328 PRINT "4. COMPLETE INVENTORY LIST" 
_123@ PRINT “2. INVENTORY LIST BY VENDOR" ae 
434@ PRINT "3. LIST OF ITEMS BELOW REORDER POINT" | 
25@ INPUT “OPTION # "G NS 
4364 ON N& GOSUB 1386, 1414, 1440 
1378 RETURN 
428@ FOR I=4 TO NI 
4398 GOSUB 6aau 
1406 FOR J = 4 To 2@@@:NEXT J. 
1403 NEXT I 
1405 RETURN 
4446 INPUT "DESIRED VENDOR NUMBER "3 YNt 
4426 FOR I=4 TO NI 
4436 IF V$CI><>¥NS GOTO 1435 
1432 GOSUE é6aaq 
4433 FOR J=1 TO 3@@ :NEXT J 
4434 FOR J= 4 TO 19@@:NEKT J 
4435 NEXT I 
4435 RETURN 
14444 FOR I= 1 To NI 
445@ IF @¢I> b= RLCI> GOTO 1476 
4464 GOSUB 6aac 
4465 FOR J= 4 TO 1@@@:NEXKT J 
1478 NEXTI 
1466 RETURN 
4160@ REM SUBROUTINE FOR CHANGING INVENTORY AMOUNTS 
1648 REM AVERAGE COST AUTOMATICALLY CHANGED WITH ADDITIONS 
4615 REM TO INVENTOR’ 
4628 CLS 
4636 PRINT " CHANGING INVENTORY AMOUNTS" 
14644 PRINT ; 
4654 PRINT "FOR EACH ITEM OF INTEREST IT WILL BE NECESSARY To 
166@ PRINT "ENTER THE ITEM NUMBER AND PRESS ENTER. INFORMATION 
4678 PRINT "ABOUT. THAT ITEM WILL THEN BE DISPLAYED. THEN THE 
41688 PRINT "USER MUST INDICATE WHETHER THE ITEM SUPPLY IS BEING" 
1694 PRINT “DIMINISHED OR INCREASED, AND BY? HOW MUCH. " 
1695 FoR I=14 TO 2@@:NEXT I 


478 
1785 
4748 
1728 
1738 
1746 
1758 
17748 
177s 
417 Sea 

1886 

1818 

1812 
1814 

4845 

1817 

18415 

1828 

1822 

1824 

1325 

1826 

LaZ7 

1828 

1e25 

ABSA 

Lies mse 

1a33 

1834 

18235 

1826 


1344. 


Le4s 
Le4r 
1558 
1835 
Lele 
1353 
1560 
1Se6e5 
1s7re 
Ler5 
isse 
136e 
1318 
L326 
1336 
is4q 
1358 
L368 
137e 
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DLS 

T=a 

FRINT @ 326. "ITEM NUMBER :"; -INFUT ITS 
I= I+1 

IF IT#=N#FO1> GoTo toe 


IF I=NI GoTo 17re 

GOTO Aras 

PRINT: PRINT “ITEM NOT ON INVENTORY LIST. " 
FOR J=1 TO s8ea:NEAT 7 

GOTO LsSra 

GOSUE 66ee : REM LIST ITEM INFORMATICIN 
FRINT “INFUT A FOR AGGITIONS. & FoR DELETIONS. & FoR: END" 
INFUT Fé 

IFO RS = "Rk" RETURN 

IF RS="A" OF RE="B" GOTO Lease 

GOSUE S288 


“GOTO. 1888 


IF RS="A"- GOTO 1é4a 

CLS SPRINT" HOW MANY ITEMS Do YOU MISH TO DELETE"; : INPUT 4 
IF Q@4<= eIs GOTO ase 

PRINT: PRIAT "ONLY "sicios " ITEMS IN INVENTORY. TR AGAIN" 
FOR I= 1° TO Saa:HExXT I 

GOTO Asse : 

PRINT "ARE YOU SURE SOU WANT TO DELETE “3 G4; " ITEMS¢CYA/ND"; 
INFLIT 25 

IF Z23¢="7" OR Z9¢="N" GOTO 1az4 

GOSUE S2a0 

GOTO Ase | 
IF 234="H" GOTO Ac8e8 
elosacIo - O@1:5¢8. I 
GOTO 1s7a 

INPUT "INFUT ONG. OF UNITS To ADD": Gt 

INPUT "UNIT costs UT 

Pie Se 

INPUT “PRESS 2 AND ENTER IF IN ERROR. JUST ENTER IF oO"; 25 
IF 25=1 GOTO 1ne0 

ACS CACeE Loe lotro cae lo +e 

ACY Tas TNT LBeAC > Lie 

Hig laste lo + fy 


22508. Do +d 


GOTO. Tare 


BOSE e5be 

IF 2332 0°" GOTO 1?ree 

RETURE 

REM SUBROUTINE FOR READING INY. FILE FROM CASSETTE 
CLS:FRINT "PREPARE TAFE RECORDER AND IN. TARE. " 
INPUT "PRESS ENTER WHEN READY": 2r 

INPUT #—-1. WI 

For T=1 TO WI 

GOSUE Sees 

HEXT I 

RE TURM 
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‘COMPUT AOINICS: 


THEMATICAL APPLICATIONS SERVICE 


22600 REM SUBROLITINE FOR WRITING INY FILE ONTO CASSETTE 
22106 CLS:FPRINT "“FREPARE TAPE RECORDER AND INV. TAPE 
2e2a@ INPUT "PRESS ENTER WHEN READY": 27 

22sQ@ PRINT #-2.NI 

2240 FOR I= 1 TO NI 

2258 GOSUE Si6ea@ 

#2268 HWEKT I 

22760 RETURN 

2506 REM UPDATE TO BEGIN NEW INVENTORY FERTIOOR 

2040 FOR IT=1 TO NI 

2526 5¢€2, 12 = S€4d.19 : Sed, 19=5¢G, 19 : Ste, I> = & 
2536 HEXKT I 

2525 CLS:PRINT “UPDATE COMPLETE”: FOR I=41 TO 2@@:NEXT I 
2ida@ RETURN 

2oeaea REM END FROGRAM SUBROUTINE 

2605 CLS 

240 IANPUT"ARE ‘You SURE YOU WISH TO END PROGRAMC'Y No" 27% 
23260 IF Z27¢="HN" RETURN 

2830 IF 27s="7" END 

2348 GOSUE S2he 

2eanea GOoTa seas 

=ee@e REM SUBROLITINE FOR ACTIVITY REPORT 

ZO46 CLS:GOSUB =see 

B@2e FOR I= 1 Ta WI 

=626 GOSUB 3256 

S@da@ IF Ide = INTCI“14> GoTa sH7a 

Beas MEXT I 

S@S55 (PRIAT 

SeS6 INPUT "END OF REPORT. PRESS ENTER TO RETURN TO MENU": 24 
S066 RETURN 

SQr0 FPRINT: INFUT "PRESS ENTER FOR MORE OF REPORT": 24 
Sasa CLS 


2438 GOSUB =sHe 

S168 GOTO sesa 

3206 REM SUBROUTINE WITH FRINTUSING FORMAT VARIABLES ; 
Beit HS="ITEM NO. DESCRIPTION OM HAND THIS PER. LAST PER. !" 
Bafa 23="% “ao “a eH HERE H### 
Z225 RETURN 

325@ REM SUBROUTINE FOR PRINTING ACTIVITY INFORMATION 

3266 PRINTUSING 22; NSCT9, DSeTo, OCT>, S¢G@, 13,5¢41, 15 

S270 RETURN 

2366 REM SUBROUTINE FOR PRINTING HEADING 

E2318 PRINTUSING H#: 22% 

3326 RETURN 
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OMPUTRONICS: 


MATHEMATICAL APPLICATIONS SERVICE™ 


SEaa REM EDITING SUBROUTINE 
S516 CLS oe 
ZS2ea@ PRINT" EDITING ITEM ENTRIES" 
S830 PRINT 
S540 PRINT "FOR EACH ITEM MAKE THE APPROPRIATE CHANGES AND" 
SS50 PRINT “AND PRESS ENTER ARPTER EACH CHANGE. JUST FRESS 
3568 PRINT "ENTER WHEN ITEM IS NOT CHANGED. " 
SS7rea FOR I= 1 TO 1aaea:NEXT I 
SSS CLS 
=598 I= 
S668. PRINT @ S20 
S616 IF ITs="955 
B62 JT=I+1 
oRS6ER IF IT$=N#e¢1> Gato 
S648 IF I = NI GoTo 246 
2658 GOTO S=62u 
Z6Frea PRINT: PRINT "ITEM NOT ON INVENTORY LIST. " 
S6PS FOR J=1 To 266:NEXT J 
3668 GOTO S755 
=788 GOSUE 8868 >: REM LIST ITEM INFORMATION 
2718 PRINT 
3r2e GOSUE Sree 
S736 CLS 
2748 GOSUE seaeaea 
SPSe. PRINTS PR 
BPSs GOSUE. 6508 : REM QUERY SUBROUTINE 
SP6@ IF 29¢="'" GOTO S538 
- E78@ RETURN 
SOG REM SUBROUTINE Fork READING RECORD FROM CASSETTE 
S98 IMPUT #2. NECT oO. OSCT oO. YSCTO. OCT o Ue To. Pele. ACI. RLS, 
ACTo, St, 19, S041. 03. 502) 03 
Sach RETURN 
S1lae REM SUBROUTINE FOF COPYTANG RECORD ONTO CASSETTE 
S116 PRINT #-1. N80. DECI. VECT a. CLO, ULTo. POI. ACK Io. RLCT, 
ACIo, St@. Ta.,seh, Is, S02. 13 
Si28 RETURN 
S206 REM SUBROUTINE FOF INFUT ERROR 
Sai10 FRINT: FRINT "INPUT ERROR. ENTER AGAIN. " 
S220 FOR K=1 TOeL6eea:NEXT EK 
see PRINT: RETURN 
6600 FEM SUBROUTINE CISFPLAYING DATA FOR 1 ITEM 
6616 CLS 


»“ITEM NUMBER ¢S559 FOR RETURNO"s > INPUT ITS 
33" RETURN 


~4 
Gi tl 


6620 FRINT "ITEM NU. > "SN@CTOs " DESCRIP. : "3 D$elo 
6Q30 PRINT "VENDOR NO. : "a ¥eer> 

6646 PRINT "GUANT. ON HAND: "Ss @elos" LAST UNIT COST. "3 UCT 
SQS50 PRINT "SELLING FR. i's Feros" AVERAGE COST 2: "GACY TS 
6666 PRINT "REQRDER FT. : "iRb¢Ioi" MAK INV. : "aS RACTD 

6676 PRINT "“GQRDERS THIS INV. PERIO® : "i Sa, 1d 


6086 PRINT “ORDERS LAST INV. PER: "3; S¢4.193" PREV. PER: "i S¢2, 19 
6485 PRINT | 
6090 RETURN 


MATHEMATICAL APPLICATIONS SERVICE™ 


1. OTHERWISE PRESS @"; : 


6268 REM OK SUBROUTINE 

Geile PRINT 

6228 PRINT “TF Ok PRESS 

6230 IF 26=8 OF 25=1 GOTO é62re 
6246 GOSUE S20 

6256 GOSUE see 

6266 GOTO S2ie 


6z27a REM 
6236 RETURN 


6568 REM GQUERT SUBROUTINE 


6516 PRINT "DO ‘OL DESIRE MORE ENTRIES ?¢<Y-/No" 
6526 IF 25$<> "" AND 25$<c> "NN" GOTO 653 


6525 RETURN 

6528 GOSUB Soe 

6548 CLS: GOUT 6518 

6768 REM DATA ITEM INPUT 
6°16 INPUT "ITEM NUMBER 
6726 INFUT “DESCRIPTION 


6738 INPUT "VENDOR NUMBER: 


SUBROUTINE 


"SNSCTd 
2@ CHAR) "; DSc 
"3 WECT> 


6748 INPUT "“GUANTITY ON HAND "3 CID 
67568 INPUT “LAST ORDER UNIT Cost "; UCI 
6768 INPUT "SELLING FRICE "7FCI) 
677Q INPUT "AVERAGE UNIT cost "j ACCS 
6730 INPUT "REQRDER POINT "7 RLCTO 
e736 INPUT "MAKTIMUM INVENTORY "7 RACTO 
6seoa INPUT "# SOLO THIS INY. FPERIOO "; Ste. 13 
6316 INPUT "# SOLD LAST IN. PERIOD "; Sea. 15 
Se20 INPUT "# SOLD 2 INY. FER. AGO "3; Se2. 13 


6836 RETURN 
: PET and TRS-80 : 


‘Just LOAD and GO' Software 
Pre-recorded Business Programs 
USEFUL-PRACTICAL-LOW-COST! 
DISPLAY only or DISPLAY/PRINTER 
@ GENERAL LEDGER—For nome businesses. 


and sole proprietorsnips. smatl cor 


porations—$19.95 plus $1.50 ship- 
pinginanditing. 
Requires 8K minimum user memory 
@ CHECKING ACCOUNT —For personat bank 
accounts—$19.95 plus $1.50 shippings 
handling 
Requires BK minimum user memory 
@ RENT ACCOUNTS -—Records for rentat proper 
ties -$16.95 plus $1.50 shippings 
handling 
LEGAL DIARY —For attorneys (Client Accaunts) 
$16.95 plus $1.50 shipping/handting 
@ TRUST ACCOUNTS —For attorneys (Client Ac- 
counts}—$16.95 plus $1.50 shipping/ 


nandling 
Programs—MASTER and DEMO cassette, plus 2 PerCom 
“Pilon-30° record cassettes—money back guarantee— 
Complete instructions—All programs copyrighted 
All mail orders must be pre-paid. 


peai@t COMPUTERS ONE ca1 
inquiries #306 Kahala Office Tower : 

a 4211 Waralae Ave 

Honolulu. Hi 96816 (808}7 37-2933 


TRS-80 16K LEVEL If 


FROM THE PROFESSIONALS AT RACET computes 
RENUMBER your.basic programs with REMODEL ——- 
REnumber eny section or an entirs program. 
MOve any section from one location to another. 
DELete any line or range of program lines. 
— All line references readjusted as required. 
— Gives the TAS-80 large system capabilities. 
— Powerful, efficient, easy to usa. 
— Specify 16, 32, or 48K when ordering. 
seee?s This utility is an absoluts NECESSITY **"*"* 
Order TS21A at $24.95 
TIME-SERIES Analysis/Modeling with TIMSER - 
Nine 1st, 2nd, and 3rd order curve models. 
Goodness of fit, Durbin-Watson, coefficients. 
Variance, confidenca limits, and projections 
Graphic displays of curve fit and variance. 
Seasonal, inflation, cyclical provisions. 
*e** Sllustrated instructions, well DOCUMENTED **** 
Order RD11A at $14,95 
OPTICAL SYSTEMS Layout/Analysis with Y-YBAR — 
Uses Delano Y-Y diagram to manipulate ray 
heights at lens surfaces and explore 1st order 
parameters. Alternate to paraxial ray trace. 
** Super programming tool for optical DESIGNERS °* 
Order RA31A at $19.95 
CASSETTE TAPES for Micros — LIMITED SPECIAL — 
Recording studio master quality. C-20 screw 
cassettes. Hard cases. Broad dynamic range. 


** Premium tapes — outstanding CONSISTENCY *** 
Order AKG1 at 10 for $14.95 
R24 chock, VISA, M/C. Calif, residents add 6% 
RACET computes, 702 Palmdale, Orange, CA 92665 
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[INPUT 23% 


COMPUTRONICS: 


MATHEMATICAL APPLICATIONS SERVICE 


CREDIT CARD INFORMATION STORAGE 
BY 
STAN TISHLER 


5 GOSUB 3000 

1@ CLEAR 3006: CLS: DIMNS<(15@>, A$(415@), P$6150>, 26158, X$¢150) 
15 DIMY$<1569, R$¢150) 

26 CLS:PRINT@2G,"* * SELECTION * &": PRINT 

3@ PRINTTABC2@>"4. TO BUILD A FILE" 

PRINTTABC2@>"2. TO SEE THE ENTIRE FILE" 

PRINTTABC20)"%. TO SEE AN INDIVIDUAL NAME" 
PRINTTAB(2@2"4. TO MAKE CORRECTIONS" 

PRINTTAB(20)"5. TO) SAVE THE CURRENT FILE ON TAPE" 
PRINTTABC202"6. TC) INPUT A FILE FROM TAPE" 
PRINTTAB(202"7. TO ADD TO A FILE" :PRINT:PRINT 
PRINTTABC19); : INPUT @:IF @>7 OR G@<41 GOTO 26 

ON @ GOTO 116, 200, 308, 406, 5aG, 600, 740 

FOR I=1 TO 5@:CLS 

GOSUB 1900 

NEXT 

IF FRECX$2<108 GOTO 150, 

NEXT 

PRINT"FILE CLOSED--":INPUT"TO SEE THE SELECTOR HIT ENTER": X 
GOTO 26 

AS$="4":°CLS:FOR I=4 TO P41 

IF N$CID="END" THEN Fi=P1-1:GOTO 210 

GOSUE 2@a0 

INPUT"PRESS ENTER FOR NEXT CARD <OR ENTER “END“2"; A9$:CLS 
IF AS$="END" THEN AS$="": GOTO 26 

NEXT I 

PRINT"FILE COMPLETE. "iP4s" CREDIT CARDS ON FILE. " 
INPUT"FOR SELECTOR PRESS ENTER"; X:GOTO 26 

CLS: INPUT"ENTER THE NAME OF THE CREDIT CARD. "s NS 

FOR I=4 TO Pi:IF N$=N$<1> THEN 330 

NEXT I 

PRINT"NAME NOT ON FILE":GOTO 34a 

GOSUB2a60 

PRINT :PRINT"FOR ANOTHER CARD TYPE 1, OTHERWISE @"; : INPUT X:CLS 
INPUT ¥:CLS | 

IF X=4 GOTO 30@ ELSE 20 
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ITROINICS: 


MATHEMATICAL APPLICATIONS SERVICE™ 


408 
405 
416 
415 
426 
424 
425 
426 
427 
428 
423 
438 
434 
435 
437 
448 
445 
454 
452 
455 
45° 
466 
462 
465 
467 
476 
472 
475 
477 
436 
482 
485 
48S 
498 
495 
bal) 
S@5 
S16 
2G 
sao 
338 
3460 
S58 


CLS:PRINT"ENTER THE NAME FOR THE CARD YOU WISH TQ CHANGE. " 
INPUT N¢ 

FOR I=1 TO F1i:IF NS=NSCI> GOTQ 424 

NEXT 

PRINT"NAME NOT ON FILE":GOTOQ 488 

GOSUB 2888 

INPUT"DO YOLI WANT TO CHANGE THIS RECORD ¢'Y/N>"3 GS 

IF LEFTS¢CQ$. 19="N" GOTO 488 
PRINT"SELECT THE ITEM YOU WISH TO CHANGE: 4. NAME 2. NUMBER 
PRINT "3. # OF CARDS 4. CARD HOLDERS 5. ADDRESS 

PRINT "6. PHONE NUMBER 7. EXPIRATION DATE 

PRINT "&. THE ENTIRE RECORD 3. END CHANGES": INPUT B14 

ON Bi GOTO 45a 455. 46a, 465, 478. 475, 488. 435, 488 

INFUT"DO YOU WANT CHANGE THE ENTER RECORD ¢'’/ND"; A2$ 
IF A2$="N" GOTO 42 

GOSUE 180G@ 

GOTO 488 

INFUT" CHANGE NAME CYeND"i A2S:1IF A2s="N" GOTO 427 
INPUT"ENTER NAME"S NSCT>:GOTQ 427 

INFUT"CHANGE NUMBER ¢Y/NO"; R2$:1F A2S="N" GOTO 427 
INPUT"ENTER NUMBER"; AS¢1I>: GOTO 427 

INPUT"CHANGE # OF CARDS ¢Y/N2"; A2$:IF AZ$="N" GOTO 427 
INPUT"ENTER NEW # GF CARDS"; 2$¢I>: GOTO 427 

INPUT"CHANGE CARD HOLDERS ¢''/ND"G A2$: IF A2S="N" GOTO 427 
INPUT"ENTER ALL CARDHOLDERS"; P$¢I2:GOTO 427 

INPUT"CHANGE ADDRESS ¢Y/No"; A2$: IF A2s="N" GOTO 427 
INPUT"ENTER NEW ADDRESS"; K$<1I>:GOTQ 427 

INFUT" CHANGE PHONE NUMBER ¢'Y/NO"; A2$:IF A2Zt="N" GOTO 427 
INPUT"ENTER NEW PHONE NUMBER": Y$CI>: GOTO 427 
INPUT"CHANGE EXPIRATION DATE ¢Y¥/N3"; A2$:IF A2$="N" GOTO 427 
INPUT"ENTER NEW EXPIRATION DATE"; R$¢1I>:GOTO 427 

GOTOze 

INPUT"FOR ANOTHER CORRECTION TYPE “4°. OTHERWISE “@°";% 
IF X=1 GOTO 4aa 

GOTO 26 

CLS: INPUT"MAKE PREPERATIONS FOR CASSETTE. " 

PRINT "WHEN READY HIT ENTER": & 

PRINT"COPYING. .. 

PRINT#—4. P41 

FOR T=1 TO Pi 

PRINT#—-1, N$CTO. ASCT 9D. 2$C19, PSCTO, RSCT3, YSCID, RECID NEXT 
FRINT'COMPLETE--NOTE TAPE LOCATION 

INPUT"TOQ SEE THE SELECTOR. HIT ENTER"; K:GOTO 26 
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COMPUTAC 


640 
614 
624 
625 
63a 
644 
rea 
71a 
ree 
738 
rra 
78a 
racls) 


. 8ae 


999 


drterteid APEC ATION SERVICE™ 


CLS: INPUT"WHEN READY HIT ENTER"; % 

PRINT"DATA BEING ENTERED......... " 

INPUT#-1. Pi 

FOR I=4 To P41 

INPUT#-1. N$¢1>. ASCI, Z$C19, PECID, KECID, YSCI2, RECT: NERKT 
PRINT"COMPLETE": INPUT"TO SEE SELECTOR HIT ENTER": ¥:GaTO2@ 
CLS: INPUT"HOW MANY ADDITIONAL NAMES ARE YOU ADDING": B 
P1=P1itB. 

FOR I=P1+1-B TO P1:CLS 

GOSUB. 1886 

IF FRECxX#9<168 GOTO 738 

NEXKT. 

PRINT"FILE CLOSED--": INPFUT"TO SEE THE SELECTOR HIT ENTER": & 
GOTO 24 

STOF 


18a8 CLS 

1465 PRINT@966, "ENTER “END’ WHEN DATA ENTRY IS COMPLETE. " 
1e86 PRINT@Ca>,." 

104@ PRINT"DO NOT USE ANY COMMAS OR COLONS. ” 

1412 INPUT"ENTER CREDIT CARD NAME"; Ni$¢1> 

181s IF LENCN$¢ 1959324 PRINT"NAME TOO LONG": GOTO 1614 
1615 IF N¢¢Io="END" THEN P1=1:GOTO 156 

162@ INPUT"ENTER CREDIT CARD NUMBER": AS¢ I> 

1621: IF LENCA$¢Ioo>26@ PRINT"TOO LONG. ":GOTO 1626 


1a2 


3 INPUT"ENTER THE NUMBER OF CARDS RECEIVED"; 2$¢I> 


1625 IF LENCZ2$¢19)>4 PRINT"ERROR. REENTER. ":GOTO 1623 

1026 INFUT"ENTER THE NAMES OF ALL CARD USERS"; P$cI> 

1631 IF LENCPS¢CI>9>32 PRINT" TOO LONG-USE ABBREVIATIONS. ":GOTO1936 
1633 FRINT"ENTER ADDRESS TO BE NOTIFIED IF CARD IS LOST" 

1034 INPUT"<STREET CITY STATE ZIP--NO COMMAS)"; X$¢I> 

1W35 IF LENCH$¢CI99>160G PRINT" TOG LONG. ABBREVIATE. ":GOTO 1a@33 
1637 INFUT"ENTER PHONE NUMBER TO REPORT LOSS"; Y$cI> 

18338 IF LENCY$¢To>>12 PRINT"TOO LONG. REENTER. ": GOTO 1637 

1929 INPUT"ENTER EXPIRATION DATE"; R$¢I> 

1658. RETURN 


2086 PRINTTABC@>"CARD NAME": TABC25>"CARD NUMBER": TABS 47) "EXPIRATION 


DATE" 

2016 PRINTSTRINGS¢(SS, "-"5 

2026 PRINTTARC@ONS¢ 19; TABC 25 2 ASC IDs TARCSZORSCIS 
2825 PRINTSTRINGS¢SS, "—-"5 

2634 PRINT"ADDRESS cir STATE ZIP 
2056 PRINTX$CI> 


2655 


2066 PRINTTABC@>"TELEPHONE #"3 TABC159>"# OF CARDS"; TABS 28> "CARDHOLDERS" 


PRINTSTRING$¢(55, "-"> 


2086 PRINTTABCEDYSC 19; TABCLIS992$¢193 TABC2Q PSC I> 
2696 PRINTSTRINGS<(6@, "=" 
2166 RETURN 


rm Sh 


MATHEMATICAL APPLICATIONS SERVICE™ 


30@@ CLS:PRINT" CREDIT CARD INFORMATION STORAGE 

BGG PRINT’ 0 weet nna nnn n anne n nna -=- 

3026 PRINT" THE PURPOSE OF THIS PROGRAM IS THE SAVING OF PERTINENT 
3@3@ PRINT"CREDIT CARD DATA. WE ALL HAYE WALLETS FULL OF CREDIT CARDS 
304@ PRINT"AND IF THEY ARE LOST OR STOLEN WE HAVE A SERICUS PROBLEM, 
3850 PRINT"THIS PROGRAM DOES NOT FREYENT THEIR LOSS BUT CAN HELP YOU 
306@ PRINT"MINIMIZE YOUR LIABILITY By KNOWING WHICH CARDS WERE LOST 
307@ PRINT"AND WHOM TO NOTIFY. . 

368@ PRINT:PRINT"CURRENT LAWS LIMIT YOUR LOSSES TO THE FIRST $5@ OF 
3898 PRINT"UNAUTHORIZED USE FROMPT NOTIFICATION TO THE CREDIT CARD 
31@@ PRINT"COMPANIES CAN REDUCE THIS AMGUNT AS WELL AS GETTING YOU 
3116 PRINT"RAPID REPLACEMENT CARDS. JUST GONE WORD OF CAUTION: " 

2445 PRINT "DO NOT USE ANY COMMAS OR COLONS WHEN ENTERING DATE 

3126 PRINT: INPUT"PRESS ENTER TO BEGIN": AS 

2134 RETURN 


TRS-80 COMPATIBLE PERIPHERALS 


*CENTRONICS 779 LINE PRINTER 


All the above printers are supplied with « special cable that allows a direct connection to 
the Centronics parallel line printer port on your Expansion Interface Unit. 
The printers are warranted for 90 days Call Centronics nationwide field service for repair 
at 800-258-1952. They usually respond to a service call within four hours. 
“SHUGART SA400 MINI-DISKS COMPLETE WITH POWER SUPPLY AND CASE 
(Again the same one Radio Shack uses). BUY TWO UNITS AND GET CABLE FREE 
foes ibn ondnesuen hahals Aish dodges att Be hte 2 S399 
*16 K RAM EXPANSION KITS (8 CHIPS) 
Up-grade your 4 K's or add to your Expansion Interface Unit sets $99 


TRS-80 SOFTWARE ON COMPATIBLE 
CASSETTES OR DISKETTES 


DATASET CONTAOL PACKAGE 
‘Thia wbroutine provices TRS-B0 


Benefit from the ever 
growing body of system particular 
information contained in each issue of 
SoftSide -"the first magazine written for the 
TRS-80 microcomputer. 


BY JOHN DemiTA aK $3 
Level | BASIC with File OPEN. READ. WRITE end CLOSE Functiom. Ala in 

‘Guded ere two utility Drogesrm ang full documentation 
INVENTORY CONTROL PROGRAM BY JERRY HICKS ax ss 
Howe the enol! Dreent inventory ryitem and provide trmely reoorn to the monegament 6 


nest 10 ” 
programs with documentation (4K) >. 
woRoscore CASTING By coMmuTER 8Y DL PITMAN ° TRS-80 Hotline Software 
fen tantic DeOgear we Lod veel for Level HH meth output formatted for pennir t 
PERSONAL FINANCE PACKAGE |. BY JOHN DeMITA 1) Programa) bd BASIC Tutorials Games 
MORTGAGE CALCULATIONS AND MATH TEST. BY JOHN DeMITA ° Software Exchange Education 
* Aimgou nonnneerdte Lav propre or Mak oe feet eet on yout bt machin e New Products Business 
“DISASSEMBLED LEVEL 11 LISTING WITH COMMENTS o Business Ventures Household Appli- 
QUBIC - BY ALWIM FILES {3.0 Tic-Tec-Tow with tots Level (5 ontyt . : 
CHECK RECONCILIATION PROGRAM - BY CLARENCE STINSON ° Gossi p cations 


APARTMENT ANALYSIS . BY DICK MICHELS 


And Much More 


PREPUBLICATION OFFER 
Order now and receive the first 12 months 
of SoftSide’™ for $10.00 (re. subscription 
price, $15.00). To order, write: 
SoftSide '™ 
PO Box68 Milford, NH 03055 


Send tor trae catalog for comotets program Inting A few tampie games Ioliow 
STAR TREK (8K). FLIGHT SIMULATOR 4K) FOOTBALL {8K} 


ADD $2 FOR PROGRAMS ON CASSETTE, $5 FOR DISKETTE 
lincludes Shipping and Handling} 


Colorado residents add 6% sales tax. SOFTWARE ROYALTY PLANS 


A & PET PROGRAMS ALSO AVAILABLE 
J senna INCORPORATED Om” 


6000 E. Evans Av, Bldg 2 p 
Denver, CO 80222 AFFILIATE 
303/ 758-7275 
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MATHEMATICAL APPLICATIONS SERVICE™ 


BAR are. PROGRAM 
RICHARD CLINTON C#4273 2 


TLS 
FRINT " BAR GRAPH FROGRAM —- AT MOST 16 CLASSES ALLOWED" 
PRINT " FOLLOW DIRECTIONS AND ENTER DATA AS ASKED. " 
INFUT " FRESS ENTER WHEN FREAD TO BEGIN. "3 25 
PRINT "INPUT OESIRED HEADING. NO COMMAS FERMITTED. PLEASE" 
PRINT: INPUT "HEADING": Ht 
INPUT “INPUT NUNBER OF DATA CLASSES"i NI 
K=hMI 
IF NI=INTONT? AND NIs= 16 GoTc 168 
PRIAT "THPUT ERROR. TRS AGAIN. " 
FOR T=1 TO S8a@:NEST I:CLS:G0TO Fa 
A OCLS PRINTVENTER NC. OF OBSERVATIONS IN EACH DATA CLASS" 
PRINT: FRINT "CLASS CBSERVAT IONS" 
Wat FOR I=1 TO NI 
SH FRINT Ta " "s .INFUT Oc To 
i468 HEXT I 
145 OLS 
156 GOSUE Like 
166 GOSUE Laee 


ber Be 


MRP Bip gn mg oy ae bo on 


LFPe Cas cn se 
Bea FOR I=1 To NI 
Sa Or Taste lo “CMs 
we MEST I 
@ FOR T=1 To NI 
mM PRINT @ S32-644#1. 15 TABCSIC’ Ios TABCL2 
Mo FOR T = 2 TO Oe ls PRINT CHRS<(1429) ,NEXT J 
Mm WET I 
@ PRINT @& 16: HF 


=~ 
‘a! 


PRINT "“QeSERVAT ION" 
PRINT " # “YWALUE" 
Fimk IT=1 TO demee 
HET I 
EME 
REM GRAPH BOUNDARY SUBROUTINE 
FoF s=2o4 TO Lay: SET¢x. 415 
HExT x 
RE TUPM 
REM HOR ISONTAL SCALING SUBROUTINE 
mpi 
For I= 1 TO kK 
IF Celeste THEN CM=CcIs 
HEx#T I ‘ 
FRIAWT @ Lei. Ch: 


oo ee 


mo; 
i! 


~“~RUO BLM Bm eB oo 


FRINT @ 3°. @ 
FRINT @ &, 


ee ee ee 


eal allel edincl al atl ee 
Aye See ee ey Th 


FE TUF 
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MATHEMATICAL APPLICATIONS SERVICE™ 


ou 


BITS AND PIECES 
by 
HOWARD Y. GOSMAN 


OUR NEW SOFTWARE POLICY 
COMPUTRONICS is now selling high quality software. We have obtained the non-exclusive rights to sell 
software from various software companies. OBVIOUSLY, COMPUTRONICS CAN NOT PRINT SOFT- 
WARE SOLD BY OTHER COMPANIES IN THE TRS-80 MONTHLY NEWSLETTER. 


Our new software policy will not affect the quality of the programs published in the Newsletter. We will 
continue to publish major programs written by our staff and contributed by subscribers. 


tn order to insure the quality of the software we are selling, we will include a short evaluation form with 
each order. Subscribers are encouraged to submit more detailed evaluations for publication in future 
Newsletter issues. 


OUR FUZZY CRYSTAL BALL 

RADIO SHACK has taken the time and trouble to refute some of our information concerning new 
products soon to be sold by RADIO SHACK. As a matter of fact, a recent RADIO SHACK TRS-80 
UPDATE (distributed to RADIO SHACK store managers and staff) suggested that perhaps our ° 
Newsletter uses a fuzzy “crystal ball.” 


A recent RADIO SHACK release (November 1, 1978) is entitled “Rumors-Bad Information.” It states, 
“There have been a number of questions raised and rumors started by various TRS-80 User's Group 
newsletters and other publications which might end up as questions in your store." 


All of our published information related to new products (and future products) sold by RADIO SHACK 
(and other companies) comes from reliable sources. Our intentions are to publish accurate information. 
The accuracy of our information is only as good as the accuracy of our sources. Hopefully, the majority 
of our “CRYSTAL BALL” information will prove to be accurate. 


NO S-100 BUS FROM RADIO SHACK 

An S-100 BUS addition to the RADIO SHACK TRS-80 would allow users to have a greater choice of 
equipment to be used in future system expansion. We stated that RADIO SHACK would be releasing an 
S-100 BUS within the next 90-days (see page 72). 


According to the November 1, 1978 RADIO SHACK TRS-80 UPDATE (for store managers and staff), 
“Contrary to some continuing rumors and very recent magazine information, RADIO SHACK will not 
produce a device which adapts the TRS-80 to accept S-100 plug-in boards. At one time, Tandy 
Computers was developing such an adaptor, but of course they are no longer in existence.” 
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Our misinformation related to the S-100 Bus comes from a phone call to TANDY COMPUTERS (see 
Page 19). Upon hearing a rumor about the pending release of the S-100 Bus, we called TANDY 
COMPUTERS 800 telephone number to ask about the availability of the S-100 Bus. We were told that it 
would be released within the next 90 days. This information was confirmed by the store manager. 
TANDY COMPUTERS (formerly a division of TANDY CORPORATION) no longer exists. We incorrectly 
assumed that RADIO SHACK (also a division of TANDY CORPORATION) would soon be selling the 
S-100 Bus. 


BUT ...AN S-100 BUS IS COMING 

MICRO COMPUTER DEVICES INC., producer of the SELECTRA-TERM (see ad in this issue) will be 
producing and selling an S-100. Their S-100 Bus should be ready within the next 90-days. Complete 
details related to the new S-100 will be published as soon as it is available. 


REAL-TIME CLOCK 

RADIO SHACK has announced a new program that allows Level II/Expansion interface owners to use 
the Interface’s Real-Time Clock without having to purchase the Mini-Disk system (see page 23). The tape 
will be shipped with all new Level Il computers and will be available to present owners at no charge 
(according to an October 23, 1978 RADIO SHACK TRS-80 UPDATE). 


A KEYBOARD DEBOUNCE PROGRAM 

RADIO SHACK has a new program that extends the keyboard “debounce” time to eliminate multiple 
characters on one key depression. The problem occurs on Level Il computers, due to keyboard contacts 
becoming contaminated with dust, dirt, cigarette smoke particles and other foreign substances. 


THE NEW RADIO SHACK MICROCOMPUTER NEWSLETTER 

RADIO SHACK will be sending out another issue of their MICROCOMPUTER NEWSLETTER. You 
probably received their previous issue several months ago. It will contain information on the following: 
(1) The KEYBOARD DEBOUNCE and CLOCK programs, (2) MICROCHESS and GAMES PAC 1], 
(3) RS-232C and TELEPHONE INTERFACE, (4) GENERAL LEDGER | Disk program, (5) MAILING LIST 
SYSTEM for disk and tape programs, and (6) assorted information and program tips. 


THE NEW RADIO SHACK MAILING LIST SYSTEMS 

According to RADIO SHACK’S October 23, 1978 TRS-80 UPDATE, two new mailing list programs are 
now available (or will be available very shortly). The two mailing list programs, one on disk and one on 
tape, allow the user to manage a mailing list. He can create the list, add to it, change information, sort it, 
and print mailing labels-either of the entire list or aselected portion of it. Selected lists may be printed by 
specified names, cities, zip code area, state, or even a special “select code”. The tape version will sell for 
$19.50 .. .the Disk version will sell for $39.95. 


RADIO SHACK DELIVERY SCHEDULES 

As of October 19, 1978, there was about an 12 week wait for delivery on the LEVEL Il BASIC KIT (to add to 
a LEVEL {| computer). There is about a 14 week wait for disk delivery (which may be shorter now). It is still 
possible to obtain immediate delivery on disks and LEVEL II from some RADIO SHACK stores. 
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FROM OUR CRYSTAL BALL DEPARTMENT-ON DISKS 

On page 69, we reported that RADIO SHACK will soon be selling a full size disk drive with 250K capacity. 
RADIO SHACK (in a recent release) stated that they do not have any plans for releasing a full size disk 
drive in the near future. Despite RADIO SHACK'’S official denial, | am sure (based on rumor, my crystal 
ball and knowledgeable sources) that RADIO SHACK will be selling a 250K capacity disk drive (with up 
1K system capacity) before June. 


MICROTRONIX (see ad this issue) is selling the MICROPOLIS METAFLOPPY disk for under $500. The 
MICROPOLIS has the capacity of storing 315K on one disk drive (or over 1000K on four disk drives). It 
should be noted that at the present time, the MICROPOLIS will only store 85K (when used with the 
TRS-80 and 2.1 D.0.S.). MICROTRONIX (and at least three other companies) claim that they will soon 
have larger storage capacity on the MICROPOLIS METAFLOPPY (with a controller card modification). 


SHUGART (the manufacturer of the RADIO SHACK mini disk) already has a dual density (double 
capacity) disk drive for sale. | am sure that RADIO SHACK must be looking into this possibility. 


TEXAS INSTRUMENTS is about to strike. 1979 will probably be the year that TEXAS INSTRUMENTS will 
introduce personal and small business computers. Based on their past track record, TI will probably 
introduce a blockbuster. | do believe that TI will introduce a small inexpensive business computer with‘ 
huge storage capacity. I'm also sure that RADIO SHACK is feverishly working on counter moves to 
insure their dominance of the personal and small business computer market. LOOK FOR A SURPRISE 
FROM RADIO SHACK WITHIN THE NEXT 100 DAYS. 


What else? Look for a 70K disk drive for $125. It should be hitting the market around June. I'm sure that 
RADIO SHACK will take notice and look into the posibilities. (Information obtained from the 
November, 1978 Computer Retailing) 


RADIO SHACK IS DOWN ON THOSE i6K RAM KITS 

There is more and more interest about the 16K’s that are being advertised for $79-$149 (compared-to 
RS's almost $300). Here’s RS's advice (from an RS release). “Yes, lots of folks are advertising 16K RAM 
kits for much less money than ours. There are outstanding reasons why your customer should stil! buy 
ours (RADIO SHACKS). We buy our RAM chips from only two prime vendors. We buy only top-grade 
chips. Even with this approach, in final testing, only 40% of the chips we receive will work reliably! There 
are some top name manufacturers whose chips just won’t work. The chips can appear to work, but 
funny non-repeatable things happen whenever the computer gets into the memory area which uses 
those chips. Basically, very tight quality control on memory chips has not yet been achieved. The amount 
of power required to refresh those chips is critical. If the chips are not tested quite thoroughly, it is 
common to find that the particular chips used may require more power to refresh than the specifications 
call for, and more power than the Z-80 microprocessor can furnish. When this is the case, very strange 
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things will happen.” If you're unit is not working, RS repair centers will not replace bad “foreign” chips. 
they will check your unit and repair any other faults. If you have used chips from other companies, RS will 
return the unit to you with a note that it contains bad RAM chips. It will be up to the customer to effect his 
own repairs or replacements for chips purchased elsewhere. NOTE-ALL RADIO SHACK OWNERS 
SHOULD KEEP THEIR PROOF OF PURCHASE. UNLESS THIS PROOF OF PURCHASE IS INCLUDED, 
IT WILL BE ASSUMED THAT YOU DO HAVE RADIO SHACK RAMS. 


‘Our position related to RAMS was previously stated (see page 23). 


TELEPHONE INTERFACE |! 

(According to an RS release) - “This new TRS-80 peripheral extends the capabilities of the RS-232C 
system to allow communication to be conducted over telephone lines. There is one significant 
limitation you should know about: The Telephone Interface | is an “originate only” interface. It does not 
allow communication between two TRS-80's. In a telephone link using this type of interface, one of the 
two computers which the TRS-80 might tie into as a terminal are so equipped. 


An “originate/answer” interface will be available in the not-too-distant future, so be patient.” 


RADIO SHACK DISKETTES 

1. A 2.2 DOS DISKETTE should be available in stores at this time. 

2. A3.0 DOS DISKETTE is coming. 

3. (According to an RS release)... “We discovered that a few DOS system disks somehow got out with 
two extra files on them. . .Names/CMD and PGM/CIM. These are files which are used in quality 
testing and are supposed to be “killed” before the disks are shipped. They are blank files and contain 
no data or programs. If your customer should get one and ask you, tell him to simply kill both of 
~ them.” 


FORTRAN-80 

MICROSOFT (who developed the RS version of BASIC) ‘has just announced their new TRS-80 
FORTRAN The TRS-80 FORTRAN will be supplied on two minidiskettes and requires a 32K system with 
“one disk drive. The FORTRAN-80 by MICROSOFT is comparable to FORTRAN compilers on large 
mainframe and minicomputers. All of ANSI Standard FORTRAN X3.9-1966 is included except the 
COMPLEX data type. An assembler, editor and loader are also included. The TRS-80 FORTRAN will be 
‘available in January, 1979 for $350. More details next month. ° 


What is FORTRAN? In short, FORTRAN is a high level computer language (BASIC is the computer 
language now used by your TRS-80) that removes the drudgery of standard operations and permits the 
user. to instruct the computer in simpler terms. FORTRAN simulates with the computer the methods 
people use to solve problems in mathematics, business, and science. 
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THE ELECTRIC PENCIL 


The ELECTRIC PENCIL is a word processing system (not an electrical device for writing on your video 
screen). The ELECTRIC PENCIL is the most powerful word processing system available for under $1000 
(it sells for $99.95). ‘ 


“The Electric Pencil is a Character Oriented Word Processing System. This means that text is entered as 
a continuous string of characters and is manipulated as such. This allows the user enormous freedom 
and ease in the movement and handling of text. Since lines are not delineated, any number of characters, 
words, lines or paragraphs may be inserted or deleted anywhere in the text. The entirety of the text shifts 
and opens up or closes as needed in ful! view of the user. The typing of carriage returns as well as word 
hyphenation is not required since each line of text is formatted automatically. As text is typed in andthe 
end of ascreen line is reached, a partially completed word is shifted to the beginning of the following line. 
Whenever text is inserted or deleted, existing text is pushed down or pulled up in awrap around fashion. 
Everything appears on the video display screen as it occurs thereby eliminating any guesswork. Text 
may be reviewed at will by variable speed scrolling both in the forward and reverse directions. 


By using the search or the search and replace function, any string of characters may be located and/or 
replaced with any other string of characters as desired. Specific sets of characters within encoded 
strings may also be located and used in creating selective mailing lists. 


When text is printed, the ELECTRIC PENCIL automatically inserts carriage returns where they are 
needed. Numerous combinations of Line Length, Page Length, Character Spacing, Line Spacing and 
Page Spacing allow for any form to be handled. Right Justification gives right-hand margins that are 
even. Pages may be numbered as well as titled.” (Quoted with permission from the ELECTRIC PENCIL 
MANUAL) 


In short, here's how the ELECTRIC PENCIL works. Turn on your computer. Load the ELECTRIC 
PENCIL SYSTEM (a cassette tape). You are now ready to type any page of text (a letter, a book, an 
article, a mailing list, a form, etc.). The ELECTRIC PENCIL will let you correct mistakes anywhere in 
your text, store the complete text on cassette and/or print it out on your LINE PRINTER or any other 
typing device hooked up to your TRS-80. With a lower case modification, you can type both upper and 
lower case letters. 


The ELECTRIC PENCIL WORKS ON BOTH LEVEL | and LEVEL Il. It does require 16K. 
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Now for some more ELECTRIC PENCIL details. 


The ELECTRIC PENCIL is a machine language tape (not written in basic). The ELECTRIC PENCIL 
MANUAL is superb so you will not have any trouble understanding how to use it. Turn on your computer. 
When your computer is ready type SYSTEM (this will allow your computer to accept machine language 
tapes. A star and question mark will appear (*?). Prepare your tape and recorder. Typein PENCIL, press 
PLAY on your recorder and ENTER on your computer. Your computer is now ready to use this advanced 
word processing sysiem. 


Before beginning, the ELECTRIC PENCIL program will ask you if you have a lower case modification on 
your computer, You answer yes or no (lower case to be discussed later). 


A blinking white cursor will appear in the upper left-hand corner of your screen. You can now start 
typing. You never have to press the ENTER key because the ELECTRIC PENCIL allows you just to type 
your text. It automatically will set up your text. It will never chop off a word at the end of a line. It auto- 
matically will start a new line (if a word is too long to fit on a previous line). 


Using the SHIFT KEY (or SHIFT-BREAK with the lower case modification), your ELECTRIC PENCIL 
system can follow a whole bunch of commands (in addition to writing your text). 


1. DELETE CHARACTER - deletes one or more characters from your text and automatically 
repositions all words and lines. 

2. INSERT-CHARACTER - inserts one or more characters into your text and automatically re- 
positions all words and lines. 

3. DELETE LINE - deletes an entire line and repositions all other lines. 

4. INSERT LINE - adds another line of text and will move down all other lines to make room for your 
new line (and will reposition all words if necessary). 

5. STRING SEARCH - a function that is used to locate any string of characters that may exist in 

the file. 

TAPE READER - enters a file (text) onto your computer from your recorder. 

TAPE WRITER - stores text from computer onto cassette tape. 

WORD NUMBER - tells you how many words have been written. 

LEFT MARGIN - will set up the size of your line (for example, 30 characters perline 40 characters 

per line, etc.). 

10. LEFT MARGIN - will set up the position of a left margin (if you don’t want to type starting at the 

left margin displayed on your computer). 

11. PAGE SPACING - sets the number of spaces (empty lines) between pages during printing. 

12. PRINTING - actually prints your text on typewriter or LINE PRINTER. 

13. UNDERLINING - allows for word underlining. 

14. LINE LENGTH - sets the number of characters per line that will be printed. 


The above is only a partial list of ELECTRIC PENCIL commands. The ELECTRIC PENCIL is FAST and 
COMPLETE. It has all commands used on $5000 word processing systems. THE ELECTRIC PENCIL IS 
NOT AVAILABLE ON DISK (FOR THE TRS-80). THE ELECTRIC PENCIL WAS WRITTEN BY MICHAEL 
SHRAYER-COPYRIGHT 1978. 
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BUYING A PRINTER 


There are hundreds of printers available that can be used with your TRS-80 COMPUTER SYSTEM. We 
will examine some of the most popular alternatives below. 


1. The TRS-80 LINE PRINTER is a dot-matrix printer (as opposed to a solid character printer. It will 
print upper case letters only. Quality of print is the same as the quality of our program printouts. If 
you examine our program printouts closely, you can see the little dots used to print-each 
character. The advantage of the TRS-80 LINE PRINTER and other dot-matrix printersis speed. 
The LINE PRINTER will print 60-100 characters per second (depending on the size of the print) 
or 21 lines per minute. You can plug in the LINE PRINTER directly to your TRS-80 interface. It is 
reliable and virtually indestructible. It’s great for printing out mailing lists and forms (in quantity). 
The LINE PRINTER will not give business letter quality (or lower case letters). The cost of the 
LINE PRINTER is $1299. The optional tractor feed is a necessity (adding $300 to the cost). You 
can have the line printed repaired by RADIO SHACK or CENTRONICS will come to yourhomeor 
office to repair it. 


2. CENTRONICS 779 is equal in every way to the TRS-80 LINE PRINTER. You can purchase the 
CENTRONICS 779 at local computer stores and save yourself $200-$400. Make sure that you ~ 
have the correct printer connection cable (or buy one from RS for $39). If you do purchase your 
printer from a non-RADIO SHACK store, make sure that you will get. the same service and make. 
sure that it can be plugged directly into your interface. 


3. OTHER CENTRONICS PRINTERS do. almost anything. More. expensive. CENTRONICS 
PRINTERS work faster, have attachments for special forms; have lower-case letters, have better 
print... You can find out more about CENTRONICS PRINTERS by calling their toll-free - 
telephone number (available from toll-free information). 


4, The TRS-80 QUICK PRINTER delivers about 150 lines per minute. The QUICK PRINTER has the 
advantage of being inexpensive ($499). It does require the expansion interface. It works just like 
the TRS-80 LINE PRINTER. It also has lower case letter. Its main disadvantage in the use of the 
special aluminum-finish paper. You can use office copiers to make copies of its printouts. The 
QUICK PRINTER is a low cost method of getting hard copy. It will not printout mailing lists on 
labels. 


5. The SELECTRA-TERM (soon to be called SELECTRA-PRINT) is an IBM SELECTRIC I with the 
necessary conversions to make it compatible with the TRS-80. MICRO COMPUTER DEVICES: 
converts a factory new IBM SELECTRIC II toa computer output terminal. The SELECTRATERM 
offers excellent business quality print (both upper and lower case). Its main disadvantage is its 
slow speed (15 characters per second-certainly faster than anyone can type). It is an excellent 
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choice for use with the ELECTRIC PENCIL as a word processing printer. Because of its slow 
- speed, it would not be a good choice for use with a large quanty of printing (mailing lists on 
labels, invoices, etc.). The SELECTRA-TERM sells for about $2,000. BE CAREFUL. THEREISA 
SPECIAL SELECTRA-TERM FOR USE WITH YOUR TRS-80. The TRS-80 will normally print 
-upper case letters when the shift-key is used (although the video screen will slways display upper 
case letters-unless modified). The SELECTRA-TERM for the TRS-80 has a special switch that 
reverses this process to allow TRS-80 computer owners to use their computer as a standard 
typewriter. . 


\ 


6. The ANDERSON JACOBSON AJ841 (sold by MICROTRONIX) is a completely refurbished 
-- SELECTRIC (similar to 5, above). The advantage is its price (about $1000.) 


7. THE SPINTERM is the best of all possible combinations (at lease for the price of $3000 or so). 
The SPINTERM gives high quality solid character print. It is much faster than the SELECTRA- 
TERM (about 55 characters per second). The SPINTERM uses interchangeable print thimbles 
(similar to the “balls” used on the |.B.M.). Special thimbles with foreign chatacters, math and 
scientific characters, and different sized print are available. the SPINTERM must be connected to 
a TRS-80 with an RS-232 interface. 


8. EXPANDOR’S MODEL 123P 
BLACK BOX PRINTER ($449) is alow 
cost printer that used standard con- 
tinuous pin feed paper (for normal 
hard copy or mailing labels). The 
BLACK BOX PRINTER is a small, 
lightweight, portable, quiet, im- 
pact printer that prints 80 columns 
wide, at 10 characters per second, on 
8% inch wide pressure fed or sprocket 
fed paper. Up to five copies may be 
printed at one time (with carbons). 
This low cost printer is a low cost 
printer that gives good copy (upper 
case only) on standard white paper. 


SURPLUS PRINTER FOR TRS80* 
OKIDATA CP110 
LINE PRINTER 


“T.M. » RADIO SHACK 


NO SOFTWARE OR HARDWARE CHANGES. 
REQUIRED. JUST PLUG IN AND RUN! 


- More details available- from 
MICROTRONIX (ad this issue). 


* 5x7 Impact Dot Matrix 
* 80 Char/Line 
¢ 64 Char ASCII (Upper Case) 
© 110 Char/Sec. 
¢ 66 Lines/Min. 
* Accepts 8-1/2" TTY 
Roll paper 


PRINTER $650.00 


INTERFACE: BUILT $100.00 
KIT $ 60.00 
INFOR & SCHEMATIC §=6$ 5.00 


Shipped Freight collect Send check, 


“ — 6S 
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INCLUDES - Power Supply, Buiit in 
Selftest, Parallel Interface, Line Buf- 
fer and Cables. Housed in a three 
piece plastic cabinet with all control 
electronics. Retail for over $1,100. 
PRINTER BRAND NEW NEVER USED 
IN FACTORY SEALED CARTON. 
Operating Manual included. Supplies 
Service Manua! $20. Limited 
Guaranteed to be in good working 
order at time of delivery. 

Write for interface info on Heath, 
Apple, Imsai, Sol, Northstar 


INTERNATIONAL ELECTRONICS 


EQUIPMENT CORP. 


P.O. Box 522542, Miami, Florida 33152 
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TRS232 PRINTER INTERFACE 


Small System Hardware is offering a low-cost printer interface as an alternative to the Radio Shack 
interface box. The printer package in the Electric Pencil has been specially configured to support either 
the Radio Shack interface or the TRS 232 printer interface. The TRS 232 interface allows you the 
versatility of using any of a large number of computer terminals or printers with your TRS-80 and the 
Electric Pencil. In addition, each TRS 232 is delivered with cassette software for driving the printer from 
LEVEL-!| Basic, thus this one interface will support both word processing and normal program listing 
and documentation. The TRS232 comes completely assembled and tested with documentation and 
software for $39.95. 


The TRS232 printer interface is a low-cost software-driven output port. The interface is totally self- 
contained, and includes all the electronics necessary for converting the tape recorder output level to RS- 
232 compatible voltage levels. Normal operation of the cassette recorder is maintained. 


Any RS-232 compatible printer may be used with TRS232. This includes most standard computer 
terminals, Diablo printers, the new Teletype model 43 terminal, TI Silent, etc. In addition, provisions have 
been included for driving a 20-mil current loop so that commonly available teletypes may also be used if 
desired. 


The TRS232 is smail (about 1” x 2” x 3”) and installs in series with the power and cassette cables on your 
TRS-80 computer. The cassette output cable from the computer plugs into the TRS232. A second 
cassette cable (furnished) connects the TRS232 to the recorder so that standard recorder functions are 
maintained. Two short cables are attached to the TRS232; one plugs into the power input jack on the 
TRS-80 and the second mates with the plug from the TRS-80 power supply, Finally, there is a standard 
DB-25 connector on the TRS232 which mates with the printer cable. The TRS232 may be leftin place at 
all times, since it does not interfere with cassette operation and power requirements are negligible. 


The TRS232 is shipped fully assembled and tested, and includes documentation, cassette software and 
source listings for driving printers from LEVEL-II Basic or from your own machine language programs. It 
“may be ordered for $39.95 plus $2.00 for handling and postage (Calif. residents add 6% tax) from: 


SMALL SYSTEM HARDWARE 


Post Office Box 366 
Newbury Park, CA 91320 
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LOWER CASE MODIFICATION* 


LOWER CASE MODIFICATION INSTRUCTIONS 


To modify the TRS-80 for lower-case operation with the electric pencil, changes must be made to the 
screen display memory and to the keyboard. There are many ways to accomplish this modification and it 
is up to the user to determine the most satisfactory approach. The modification requires changes to the 
circuit boards within the keyboard enclosure of your TRS-80, thus your warranty will be voided by this 
modification. We have modified several computers ourselves and have had no difficulty with the TRS-80 
after making the changes, however, WE CANNOT ACCEPT RESPONSIBILITY FOR DAMAGE TO 
YOUR COMPUTER CAUSED BY INSTALLATION OF THIS MODIFICATION! 


SCREEN MEMORY MODIFICATION 


The TRS-80 video display uses a dedicated block of 1024 bytes of memory located in memory space at 
3C00 Hex. When received from the factory, there are only 7 memory chips installed in this block of 
memory, providing 128 possible characters for screen display. The stock TRS-80 uses 64 of these 
combinations for graphics and a second 64 for the upper-case subset of the ASCII character set. Bits 0-5 
control the character selection, and the highest bit (bit 7) is used to determine if the character is alpha- 
numeric or graphic. Bit 6 is missing! 


To add lower-case display, bit 6 must be implemented. This may be accomplished by switching the 
" memory chip for bit 7 to bit 6, thereby enabling lower-case letters and eliminating graphics, or by 
addition of an 8th memory chip. We prefer adding the extra chip. In either case, if you plan to use Level Il 
Basic, you must include a switch to disable bit 6, or Basic will place a lot of funny characters on the 
screen! 


Refer to the top portion of the figure on page 23. A low-power 2102A memory chip (available at most 
electronic stores) is piggy-backed onto an existing 2102A, and appropriate connections are made. Take 
the new 2102A, carefully bend pins 11 and 12 up from their normal position, then slide the chip down over 
the 2102 located at position Z45 on the larger of the two TRS-80 circuit boards (the Z-number is printed 
on the circuit board next to each chip). Be sure that the chip is oriented to place pin 1 on top of pin 1! 
When all pins are aligned and contacting (except 11 and 12, of course), carefully solder each of the 14 
pins from the added chip to the chip on the circuit board. Work quickly but be sure you get a good solder 
joint! Now, connect a small piece of insulated wire (wire-wrap wire is ideal) to pin 11. Locate pin 13 on 
chip 244, and attach the other end of the wire to the pad which is connected to this pin. 


Between chips Z29 and 230 there are three traces, two wide and one narrow. Cut the narrow trace with a 
sharp knife. Attach two pieces of insulated wire to each of the cut ends of this trace, and a third piece to 
pin 12 of the added memory chip. Run these three wires to a single-pole double-throw switch as shown in 
the diagram. This switch changes the screen memory from the original 7-bit configuration to the new 8 
bit configuration, thus allowing you to switch back and forth between Basic and The Electric Pencil. 
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KEYBOARD MODIFICATION 


One change must be made to the keyboard; a CONTROL key must be added. Itis possible to isolate and 
use one of the present keyboard keys (such as the down-arrow) as a CONTROL key, but we recommend 
adding another key. 


Install your new control key, or isolate one of the existing keys by cutting the traces on the keyboard 
circuit board. Locate Z2 and Z4 on the lower-left of the circuit board. Attach wires to pin 4 of Z2 and pin 10 
of 24 (these wires may be attached to the top or bottom of the circuit board, as desired). Attach the other 
ends of these wires to the control key. Be sure you leave enough slack in the wires to allow re-assembly of 
of your computer. This completes installation of the lower-case modification. 


This modification will work only with The Electric Pencil! To enable lower-case entry, type SHIFT- 
BREAK. The keyboard will now operate as a normal typewriter, entering lower-case characters unless 
the shift key is depressed. If you type a second SHIFT-BREAK, the keyboard will return to upper-case 
only operation. 


The lower-case character set for some TRS-80’'s will appear strange. In some cases, the small ‘a’ is raised 
above the line. All of the characters which normally extend below the line (g,j,P,q,y) will also beseenina 
raised position. Of course, when these characters are printed their appearance will depend only upon the 
printer character set. 


A kit of parts for this modification is available, and you may have the kit professionally installed if you 
wish. Contact Small System Hardware (see page 24) for further information. 


*Reprinted with permission from The Electric Pencil Operator's Manual. 


PLEASE NOTE 

On page 70 we stated’ that several readers have reported that the LOWER CASE MODIFICATION 
doesn't work. IF YOU FOLLOW THE INSTRUCTIONS IN THE ELECTRIC PENCIL MANUAL and use the 
kit supplied by MICROTRONIX (and other companies) ... THE MODIFICATION DOES WORK. Our 
machine was modified without any problems (and in only a couple of minutes). Your local computer 
store will probably modify your TRS-80 if you bring them the modification kit with instructions (and 
some money!)... or if you are so inclined, you can easily do the modification yourself. 


COMPUTRONICS, MICHAEL SHRAYER SOFTWARE, INC. (and everyone else!) CANNOT ACCEPT 
RESPONSIBILITY FOR DAMAGE TO YOUR COMPUTER CAUSED BY INSTALLATION OF THIS 
MODIFICATION. 
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DIAGRAM OF TRS-80 LOWER-CASE MODIFICATION 
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ADDITIONAL TRS-80 LINE PRINTER INSTRUCTIONS 

As noted by several subscribers, information is scarce concerning instructions for using the TRS-80 
LINE PRINTER. Subscribers are encouraged to add to the following list of “additional instructions” 
to help LINE PRINTER owners. 


1. LPRINT“ ” can be used to print a blank line. 

2. LPRINT CHR$ (32) can also be used to print a blank line. 

3. Apparantly, LPRINT CHR$ (10) and LPRINT CHR$ (13) have no visible affect on the LINE 
PRINTER (as stated on page 10/3 of LEVEL II manual. 

4. You cannot print acharacteron the LINE PRINTER without getting an automatic line feed. It may © 
be possible to modify the LINE PRINTER to print characters without line feed, but that would 
probably make it necessary to add statements to each program line to give you a line feed. 

5. CHR$ (11) or CHR$ (12) can be used with LPRINT to move paper to thetopof a form. Here’s how 
it works. When you turn on your computer, your line printer will print 66 lines per page. Verify this 
by typing in PRINT PEEK (16424) followed by ENTER. 67 is displayed (67-1 or 66 is the number of 
lines per page). If you type LPRINT CHR$ (11) or LPRINT CHR$ (12), the LINE PRINTER will 
print 66 blank lines. Now let's say you printed a mailing list or letter that used up 40 lines onthe — . 
LINE PRINTER. Now typing LPRINT CHR$ (11) will move the LINE PRINTER 26 spaces (66-40). 
If you are using 6 line mailing lables you may want to change the size of the lines per page used 
on the LINE PRINTER from 66 to 6. Just type in POKE 16424,7 (always.add_1 to your desired page 
or form size). Now if you used 4 lines of your 6 line label to print an address, type in LPRINT 
CHR$ (11) to reach the top of the next label (NOTE-you may have to add an extra couple of 
spaces to account for the space between labels). 

6. PRINT PEEK (16425) will tell you how many lines of your form have been used. 


OUR NEXT TWO ISSUES : 
Our next two issues will contain a FEDERAL INCOME TAX PROGRAM (both long and short forms), 
a WORD PROCESSING SYSTEM (for cassette or disk) and an introduction to machine language and 
assembly language. 


TWO NEW BOOKS FOR THE TRS-80 

INTRODUCTION TO TRS-80 GRAPHICS by Don Inman is due to be released this month ($8.95-175 
pages). The book begins with the most basic concepts of line drawing and leads the reader on to 
geometric shapes, moving figure animation, and other more advanced topics. 


REAL TIME BASIC FOR THE TRS-80 by Bob Albrecht and Don Inman is due to be released April, 1979 
($6.95-150 pages). This book will teach you how to read and understand programs in BASIC. 


Both of the above books will be available from COMPUTRONICS. You will receive an ad from us when 
they are in stock. 
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16-DIGIT ACCURACY FOR SQUARE ROOTS 


The following program will give 16-digit accuracy to square root calculations. The TRS-80 LEVEL 1 
BASIC presently gives 6-digit accuracy. 


90 
100 


REM-ROUTINE TO FIND SQUARE ROOT OF A NUMBER 
REM-WITH AT LEAST 16-DIGIT ACCURACY 

REN- BY 

REN- HOWARD Y. GOSMAN 

CLS: INPUT “ENTER NUMBER"; X# 

Y#=SQR (X#) 

PRINT /# 

Y#=(X#/Y#)/2 

PRINT Y# 

IF Y#=A# GOTO 100 

A#=Y# :go to 40 

PRINT:PRINT:PRINT “THE SQUARE ROOT OF"; X#; “IS"; Y#: PRINT 
INPUT “ TO FIND THE SQUARE ROOT OF ANOTHER NUMBER PRESS ENTER"; X— 
GOTO 10 


WORD PROCESSING PROGRAM 

The following short program will simulate a word processing program. The program was not designed to 
be any kind of complete word processor or complete program. It willonly simulate some of the functions 
of a word processor. COMPUTRONICS has expanded this program into a full WORD PROCESSING 
PROGRAM for cassette or disk. We are still working on getting out some remaining “bugs.” Our. 
complete word processing program will be published in one of the next two issues (assuming that all 
“bugs” are eliminated). 


16 CLEAR 1949 
2g CLS ; 
39 AS=INKEY$ :IF AS="_ "GOTO 3d [_ : 
4G BS=B$+A$ Sortsid 
50 PRINT @0, B$ ) ide... 
6¢ GOTO 30 
‘* your BASIC software magazine " 
TOLL FREE NUMBER FOR DATA PROCESSING The Pages 
SUPPLIES Come Alive 


Data Research Associates can supply all types of 
tractor feed supplies (forms, paper, invoices, mail- 


With The Touch 


ing labels, post cards, specialized forms, etc.). They Of Your Keyboard. 


also sell diskettes and 60 or 90 minute certified 


cassette tapes. For more information call; Published monthly 
(800) 431-2302 - (914) 638-1480 - (212) 220-4747 SoftSide Subscriptions 


PO Box 68 Milford NH 03055 
$15.00 per year $28.00 for two years 
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EOQ INVENTORY MODEL 
by ; 
DR. PETER SHENKIN 


Berchet Berens SERVICE™ 


If a businessman orders too great a quantity of any particular item he will find himself burdened with 
high inventory costs. For example, a tailor who orders 10000 yards of fabric at one timejust to make sure 
he has the fabric will have to pay interest on the money he borrows to buy the fabric and also takes the 
chance that the fabric goes out of style before it is used. An inventory “holding cost” can be attached to 
this. However, if the tailor keeps ordering just a few yards at a time there is also a cost attached. There is 
bookkeeping and secretarial cost, shipping cost, etc. These costs tend to be more or less the same no 
matter how large the order, e.g. there may be a minimum shipping charge and for all orders the tailor 
can reasonably be expected to make this is his charge. This fixed charge per order is a reorder cost. Now, 
if he reorders often, his reorder costs are high but his carrying costs are low. On the other hand if he 
reorders infrequently, but alot each time, then his reordering costs are low but his carrying charges are 
high. The tailor must balance the two costs to get the lowest total cost. 


The following EOQ (Economic Order Quantity) inventory program tells the tailor how to balance the 
two costs for a minimum total. The main assumptions used for this model is that the tailor uses the 
material more or less uniformly throughout the year, that he never can have a stockout and that his 
supplier is very reliable as to delivery time. Suppose that the tailor uses 600 yards of Cloth ZZ per year at 
a cost of $20 per yard. Also assume that it costs him $4 (20%) a year to hold a yard of cloth in inventory 
and that a reorder costs $12. With these numbers let's run the EOQ program: 


DEMAND? 600 
REORDER COST? 12 
HOLDING COST? 4 


TO MINIMIZE TOTAL COSTS OF INVENTORY : 
REORDER 60 ITEMS AT A TIME 


THIS MEANS ORDER APPROXIMATELY 10 TIMES PER YEAR 
OR ABOUT EVERY 37 DAYS. 


So the tailor's problem is solved. 


In using this model remember the assumptions we made. Mathematicians frequently simplify a 
model by assuming certain things. If these assumptions do not actually hold in practice then the model 
may give erroneous answers. This type of inventory model is frequently used to help the businessman to 
decide whether to take a quantity discount he is offered or not. 
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5 CLS 

46 PRINT" EUG INVENTORY MODEL " 

2a PRINT . 

2@ PRINT'IN INVENTORY THEGRY A REORDER COST 15 A FIXED COST ASSESSED 

25 PRINT"EACH TIME AN ORDER FOR AN ITEM IS PLACED, NO MATTER WHAT 

4@ FRINT'THE ORDER QUANTITY 15, 

S@ PRINT"A HOLDING COST 15 A COST DUE To HOLDING INVENTORY. €. G INTEREST 
6@ PRINT"A STOCKOUT COST 15 DUE TO RUNNING OUT OF AN ITEM 

65 PRINT’IN THIS PROGRAM WE ASSUME THAT THERE WILL BE NO STOCKOUTS 

7@ PRINT"IN ADDITION THE ITEMS ARE USED UNIFORMLY THROUGHOLIT THE ‘YEAR 


PRINT"WE CAN TAKE DELIVERY OF A REORDER WHENEVER WE DFNT 
PRINT "DEMAND 15 IN NUMBER OF ITEMS USED PER YEAR 

PRINT “REORDER COST I5 IN DOLLARS PER REORDER. 

PRINT "HOLDING COST IS IN DOLLARS FER ITEM PER YEAR. 
PRINT 

INFUT "TC BEGIN PRESS ENTER": 23 


ih Ps Lok Woo oo NA 
ml io on ch ms en me 


@ CLS 

aa INFUT “DEMAND "GT 

S20 INFUT "REQRDER COST "TOR 

236 INPUT "HOLDING COST "3H 

240 G=50R 0 24#Ck+D-CH) 

Soh G4 = INTCh+. S53 

S80 PRINT 

Ze PRINT "TO MINIMIZE TOTAL COSTS OF INVENTORY 2" 
338 FRINT" REQRDER "its" ITEMS AT A TIME" 

=48 PRINT 

S58 FRINT" THIS MEANS ORDER APPROSIMATELT's INTCD“Gi+. 35: " TINES FER EAR 
364 PRINT"OPR ABOUT EVERY "s INTCSE5°INTODAR1 +. 354+. 325" DAYS. " 
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RANDOM ACCESS MAILING LIST PROGRAM 
by 
HOWARD GOSMAN and PETER SHENKIN 


The following is a simple random access mailing list program. It will allow you to create or add toa 
file of people, to access and correct individual records in the file, and to print the file sorted by either 
ZIP or last name. Line printer operation is supported so this program can actually be used to print 
out mailing labels. With a little modification the program can also be sued to keep track of files other than 
mailing list types. 

We'll now show how this program operates. In the following, our replies to machine queries will be 
enclosed in“ ” marks (not necessary when you run the program). Comments will be enclosed in(_ ). 
Machine output will always be printed in CAPITALS. 


Carefully type the program statements into your LEVEL II DISK SYSTEM. This program will run with 
1 disk drive and 16K of memory. When you are through type SAVE “MAILLIST” and press ENTER. The 
program will be saved on the disk in drive 0. When you are ready to run the program put the disk in drive 0, 
turn on the machine, load BASIC and press LOAD “MAILLIST”, R. The disk drive turns on and you 
should see on the CRT: 


*"MENU*** 
TO BUILD OR ADD TOA FILE TYPE 1 

TO SEE THE ENTIRE FILE TYPE 2 

TO SEE AN INDIVIDUAL NAME TYPE 3 

TO PRINT SORTED FILE TYPE 4 

24% (We shall begin by starting a data file. Hence we type 1 and enter.) 


NAME OF FILE? “DATA 3” 

NEW FILE -- PRESS ENTER TO CONTINUE? ( we press ENTER. Since this file did not pre- 
viously exist it has no records in it and is thus a new file for the purposes of this program. 
If we had wanted to append some names to an old file we would have just used the name 
of the old file when asked for NAME OF FILE?. If an old file was spelied incorrectly the 
NEW FILE statement comes up. Then we know an error has been made. Press BREAK 
and RUN and start over. Later KILL the misspelled file.) 


NUMBER? “TRS8422” (Membership number (or ID #) of 1st person on file) 
FIRST NAME? “JOHN” 

LAST NAME? “SMYTHE” 

COMPANY OR APARTMENT NO.? “#C8" 

STREET ADDRESS? “4120 SOUTH STREET” 

CITY AND STATE? “WARREN OH.” (No commas here) 

ZIP CODE? “44483” 


(Screen clears and on top of screen we see:) 
TRS8422 
JOHN SMYTHE 
#C8 
4120 SOUTH STREET 
WARREN OH. 44483 


‘CORMPU TRON TC: 
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PRINT O IF OK, 1 OTHERWISE, 2 TO RETURN TO MENU? “1” (Press 2 here if you want to ignore this 
person altogether. Pressing O loads the record on the disk file. We pressed 1. 
John Smythe's street address is wrong.) 


NUMBER? (Just press ENTER. The machine prompts for any corrections. 
If there are none just press enter) : 

FIRST NAME? (Just press ENTER) 

LAST NAME? (Just press ENTER) 


COMPANY OR APARTMENT NUMBER.? (Just press ENTER) 

STREET ADDRESS? ‘4121 SOUTH STREET” (Make necessary corrections.) 
CITY AND STATE? (Just press ENTER) 

ZIP CODE? (Just press ENTER) 


(Screen clears and we see:) 


TRS8422 

JOHN SMYTHE 

#C8 

4121 SOUTH STREET 
WARREN OH. 44483 


PRINT O IF OK, 1 OTHERWISE, 1 TO RETURN TO MENU?"O" 
FOR ANOTHER NAME TYPE 1, ELSE TYPE 0? “1” 


NUMBER? (Works just like before.) 
(After entering a few more names like this we type 0 and return to the MENU. 


(One of the people on the list we constructed is named Joan Tide. We wish to review her records and 
possibly change them. Thus we choose option 3 from the MENU and see:) 


NAME OF FILE? “DATA3" 
ENTER LAST NAME OF RECORD YOU WISH TO SEE? “TIDE” 


TRS8423 

JOAN TIDE 

430 OVERHILL 

COLUMBUS OH. 43214 


INPUT 1 IF CORRECT PERSON 

INPUT 1 IF CORRECT LAST NAME BUT WRONG PERSON 

INPUT 3 IF INCORRECT LAST NAME 

ae ie (Option 2 is included as the program is searching through the file and selects 
the 1st TIDE. If there were 2 TIDE’S on the file & Joan was the 2nd one then 
pressing 2 will continue searching the file from the present place.) 


TRS8423 
JOAN TIDE 
430 OVERHILL 
COLUMBUS OH. 43214. 
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INPUT 1 TO CHANGE 

INPUT 2 TO SEE ANOTHER PERSON 
INPUT 3 TO PRINT ON LINE PRINTER 
INPUT 4 TO RETURN TO MENU 


CHOICE = ? “1” (From here change works just as when making up file.) 


(MENU option 2 prints the entire file in order of entry either on the CRT or on the line printer. If the CRT is 
chosen then to stop the scrolling on the screen simultaneously press @ and SHIFT. This stops action. To 
continue press any key. MENU option 4 sorts the file by Last name or by ZIP and then prints the sorted 
file either on the CRT or on the CRT and the line printer. The sort routine chosen was chosen to make it 
possible to run the program on the 16K machine. Thus we had to choose a routine which uses very littie 
memory. The tradeoff is that the sort is slow when alot of anmes are on file. Below are a few entries froma 
sort by ZIP.) 


ei SL ARCS 
KIAG ENTERPRISES 
SAG FLAMINGO 

PAY se ee 


TRESS 25 

FEE SLADE 
CMIOM TM. 

424 WM. FIRST 


WEST FORE PMT EVP st 2h 4h 
TR Site} Se} 
TRA TM JHE SS 


Cle Ca Fe 
Eu WEST FPOSTH STREET 
MER YUEED Bd’ Lee So} 


TRS 


Br I BIRR 
Po. BOs QoS 

WIRMTER PARE FL SEPao 
TRaS4 28 , 

JOHATHAM THALI 
$222 Wo LSeTH COURT 

MIAMI FL SELES 
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1 


ns 


APN Eo om 


Par mR PS fo ho Po ts 
CAS oe at 


4 


Fit) 


CLEAR 1eB8 

CLS :PRINTS Le, “s4kMENUak" CPRINT o PRINT 
PRINT "TO BUILD OR ADD TO A FILE TYPE i" 
PRINT "Tt SEE THE ENTIRE FILE TYFE 2" 
PRINT "TO SEE AN INDIVIDUAL NAME TYPE 3" 
FRINT "TO FRINT SORTED FILE TYPE 4" 

INPLIT G:ON &@ GOTO 1G, 24a, 408. sa5u 

GOSUB 1s8e:GOTO 14 


Mm REN-STARTS OF ADDS TO EXISTING FILE 


CLS:INPUT "NAME OF FILE"; Fes: OFEN"R", 4. F°$ 
IF LOFCi>=6 INFUT "NEW FILE--PRESS ENTER TO CONTINUE"; 29 
IF LOFeto=8 GOTO 145 
GOSUB S2oe 
LR=LR+1:GOSUB S260: GOSUB Sseanu 
GOSUB S1ee:GOSUB 6280 
IF 235=1 GOSUB 6Hzu:GOTOQ i136 
IF 23=2 CLOSE 1:G0T0O 16 
GUSUBSLOG: GOSUR SeQ@G@-FUT 4. PR:PRINT 


4 Fi= wee : His= au : N2s= ae : C f= nw . AL ¢=" " R AZS= sot . ZFP$=" n : Ns= hae P A23= tay 


INPUT"FOR ANOTHER NAME TYPE 2. ELSE TYPE avin 
IF x=1 GOTOLA15 


M4 CLOSE: GOToOLe 


CLS:REMN-FRINTS ENTIRE FILE 

INFUT"TO PRINT FILE ON MAILING LABELS TYPE 1... EL5E TYPE G's Fk 
GUSUE 4H 

CLS:GO0SUB S268: E=LRE 

FOR LR=i TO E 

GBOSUE S3a4-GOSUB SL88:GET 1: FPR: G0SUB Sage 

NEXT 

CLOSE 

FRINT :INPUT"TO SEE MENU FRESS ENTER": «:GOTO2H 

REMN-TO SEE OR CHANGE AN INDIVIDUAL RECORD 

INPUT "NAME CF FILE"; Fe: OPEN"R", 1. FS 

CLS 

IF LOFCA2=8 PRINT PRINT "NO RECORDS ON FILE": PRINT: GoTOd?2 


3 INPLIT“ENTER LAST NAME OF RECORD YOU WISH TO SEE"S LN¢ 


GOSUBSZH6 : E=LF 

FOR LR=i TOE 

GOSUEISEH :GOSUG SLBe:GET 41.PR 

KE INSTRONAMS, "ok" > -N2$=LEFTSCNANS, K-13 
IF-LN¢=NZz$ GOTOSES 

NEXT 

PRINT "NAME NOT ON FILE. " 

CLOSE 

PRINT: INPUT"TO SEE MENU! PRESS ENTER": ¥:GOTO2@ 
CLS:GUSUE 39446 

PRINT: FRINT"INFUT 2 IF CORRECT PERSON" 

PRINT" INPUT 2 IF CORRECT LAST NAME BUT WRONG PERSON 


M PRINT"INPLT 3 IF INCORRECT LAST NAME 


INFUT 25 
ON 29 GOTO 680. 478. 412 
GOSUB 1268:GOTO Sen 


112 


ghar tertabed APPLICATIONS SERVICE™ 


PUTO: 


506 CLS: GOSUB 3446: PRINT 

645 FRINT 

616 FRINT'INFUT 2 TO CHANGE" 

B15 PRINT" INPUT 2 TO SEE ANOTHER FERSON 
620 PRINTS INPUT = TO PRINT ON LINE PRINTER 
625 FRINT' INPUT 4 TO RETURN TO MENU 

636 FRINT INPUT "CHOICE = "3 23 


AON 239 GOTO Pee 414, 6o8. 272 


S00 R=1: PRINT: INPUT"PRESS ENTER WHEN LINE PRINTER READY: 25 


rsa 


Wem su hh on fw bl 


Ll Wd ll Ld tel bb bet 
a i a 
OQ Men HM GS H 


2308 


Po 
an co cs 


tal bab tal lel lab la 


tal tal tal dal bal fal 


CLS: GOSUB 31ae 
ReO GOSUB S1a@:G0TO 6es 
REM CHANGE SUBROUTINE 


Q GOSUB 3406: GOSUB 6826: GOUSUE See -PRINT: GOSUB 6268 


IF 23=1 GOTO 7416 

LR=E 

IF 23=2 CLOSE 1:G0TO 16 

GUSUE S16: GOSUE 3680 -FUT 1. FR 

PRINT: INFUT "PRESS 2 FOR MORE. & To RETURN TO MENU": 29 
IF Z9=8 CLOSE 1:G070 16 

IF 28=1 GOTO 448 

GOSUB izee:GaTa rae 


Mm REM INPUT ERROR SUBROUTINE 


PRINT INFUT ERROR! Trt AGAIN! FoR ksi TO 3@@:NEXT K 
RETURN 


MA REM SORT ROUTINE 


GOSUB 4auG 

INPUT" INPUT 41 IF LINE FRINTER TO BE USED. & OTHERWISE": 29 
OIF 29¢>4 AND 29¢>8 GOSUB isae:G0TO 2618 

IF 29=] R=1 

GOSUB 3206°REM FIND NUMBER OF RECORDS ON FILE 
LIR=LF 

CLS:FPRINT"CHOOSE SORT KEY: 1 IF LAST NAME. 2 IF IP’: 
INPUT 25:°1F 23¢>1 AND 29<>2 GOSUB Lee GOTO sace 
INIT#= " “CLOW $="22S222222" (LR=4 

FOR J=1 To LIF 

FOR T=1 TO LIF 

LR=I:GOSUB S368 G05UE S188:GET 1. FR 


@ LR$="GO"+STRECLR? -LRS=RIGHTE CLES, 35 


IF 23=1 AF=NAMNS+LRF 

IF 2952 AS=RIGHT#(CS2$, 33+ Let 
IF ASC=INITS GOTO S2en 

IF ASCLOWS LOWS=AF 


GOTO S2e8 

NEXT I 

INI T#=LOU > LR=VAL OR IGHTS (LOWS. S35 

GOSUB S366: GOSUE S1@8:GET 1.PR:GOSUE Saag 

pe aaa 

NEXT J 

PRINT: INPUT" SORT COMPLETE. PRESS ENTER TO RETURN TO MENU": 29 
GOTO 1a 
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a 


4000 REM EMPTY FILE PRINT SUBROUTINE 

$616 CLS: INPUT"NAME OF FILE "i FrS.0FEN "R".4.F 7S 

$026 IF LOFCL9=@ PRINT "NO RECORDS ON FILE” GOTO 272: RETURN 
aa REM PRINTING SUBROUTINE 

aH16 PRINT NUMS: IF R=i LPRINT NUM 

S@28 A=INSTRONAMNS, "*"D (PRINT RIGHTS (NAMNS, 26-495" "GF LEFTS CNAME, K-19 
s825 IF R=1 LPRINT RIGHTS{NANE, 26-49; " "3 LEFTECNAME, K-15 
s43@ IF CHPS>"!" PRINT CMPS$: IF R=i LPRINT CMF 

SG25 PRINT ADDS: IF R= LFRINT ADDS 

S846 PRINT CS2$:1IF R=i LPRINT co2¢ 

=@5@ IF F=4 LFRINT " "IF CMPS<"'!" LPRINT " " 

s@60 PRINT: RETURN 

S16@ REM PRINTING SUBROUTINE » NC LSET REQUIRED 


8. 


sli CLS: PRINTFS:PRINTNLS: " "NBS: 1F C$9"!" PRINTCS 
s115 PRINT ALS: PRINT AZt 
Sii? IF R=i LPRINT FS: LPRINTNIS; " “i Nes: IFCS>"'" LPRINTCS 


Size IF R=1 LFRINT Al: LPRINT A2ti" "i 2e > RETURN 

6606 REM INPUT SUBROUTINE 

6@28 CLS:PRINT INFUT "NUMBERS FS 

SESE TNPUT'FIRST NAMNE"G NLS: INPUT"LAST NAME" NZS 

6646 INFUT'COMPANY OR APARTMENT No. "5 Ce 

6620 INFUT"STREET ADDRESS "j AL: INPUT "CITY! AND STATE") ASE 
66r°a INFUT "ZIP CODE"; 2P¢ 

: NS=Ne$t+ "4" +N1$ 

AZt=AS$+S TRING? ( 26-LENCAS$3-LENCZFS9," “94+Z2F$°: RETURN 
FRINT: REM CK OR NOT SLBROLITINE 

INFUT"PRINT @ IF OK. 1 OTHERWISE. 2 TO RETURN TO MENU": 23 
IF 23 = @ OR Z3=1 OR Z29=2RETLFN 


GOSUB Teeea: GOTO sone 


J 
a 


mM Bot Se Liha om oo mo 


me oy Se Se sy om ~ TM min Sm oe Sean we 


We pa a fs Tea oe 


LSET D2$=STRINGECLE7. " "3 
RETURN 
FIELD i: SF: 
6 AS ADS, 
RETURN 
REM-FINDS NUMBER CF RECORDS ON FILE 
SR=1:PR=LOF C41) 
GOSUE See 
GET 1. FR 
IF NAMS<" I" LRepReoe-1 ELSE LR=PR«S 
RETURN 
REM-CALCULATES PR AND Sr 
PRE INTE CL R-13/23+1: SR=LE-2e INTO OLRE-1o 259-1: RETURN 
PRINT NUM$: FS=NUNE > B= INSTR CNAME "4" 
Nif=RIGHTECNAMNF. 26-45 - NEF=LEFTECNANS. 8-412 
S PRINT Nissi" "a Nat 
15 CS=CMPS 
42@ IF CMPS>"!'" FRINT CMS 
425 ALS=ADDS : ALS=CSZ2F 
427 ASE=LEFTSCCSZF. 213 
28 Z2PS=RIGHTS$(CSZS, Sd 
26 PRINT ADDS: PRINT CSZ$:RETURN 


eu Wo Wom ot oy Oe 


RP om mm 
Po a 

¥ 

pee 

hh 
imps) 


5 DS. 23 AS NUNS. 26 AS NAME. 26 AS COMPS, 
S2$. ABSCCSke-Lo#iers AS bos 


Lyon ag 
MIR Ba fo Pa Po 


tl 
Ts 


BOE oO BRB ob 
tor St 


HOO Wel unt 
bE ft! w 

ROME ‘ 

tal be 


wa] 
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LSET NUMS=F$-LSET NAMS=N¢-LOET CHPS=CS-LSET ADDS=R1LF-LSET CoSe=Ae$ 


These exceilent features are standard in the SPINTERM: 


Built-in self test. 

Send/Receive with Keyboard & Receive Only models. 
Industry standard RS-232 interfaces. 

55 Characters per Second maximum print rate. 
impeccable OCR print quality. 

Microprocessor electronics. 

High resolution plotting and graphing. 

Lowest operating noise level. 

Quick change ribbon cartridge. 

Quick change print fonts. 

Die-cast aluminum covers hinged at top and bottom. 
Operator engineered control panel. 

Prints original and up to five copies. 


PRINT ELEMENT 
‘The SPINTERM’s unique small-diameter, low-mass 
print wheel is a low-cost, long-life fiberglass reinfo d 
plastic wheel that consists of 64 cylindrically arranged 
spring action fingers on which two characters are 
mounted, one above the other. Normal life of 
the thimble is more than 30 million impres- 
sions. The small diameter, shared finger ar- 
rangement and low-mass enable the printer 
to get to the next character to be printed fast- 
er than daisy-wheel printers, which increases 
the printer throughput. 


COMMUNICATIONS CAPABILITY 


The SPINTERM can be interfaced to a data com- 
munication network through a Bell-103-type modem, or 
its equivalent. It communicates in either half or full 
duplex at data rates of 110, 150, 200, 300, 600 or 1200 
baud. Each received character is checked for correct 
parity and a parity bit is generated for each character 
transmitted. 

Received characters are stored in a 256 character 
communication line buffer while keyboard generated 
characters pass through a 16-character buffer. Interface 
configuration is accomplished using the operator control 
panel. 


V5 


A fast word processing 
) printer with 
Proportional Spacing. 


Two SPINTERMs, model PS-20 Receive Only, and 
model PS-10 Keyboard Send/Receive, are microproces- 
sor controlled serial, impact terminals dectigned for re- 
mote printing applications where impeccable print 
quality is required. The SPINTERM prints up to 55 
characters per second while receiving data at rates up to 
120 characters per second via the RS-232 interface. The 
unique print element—a thimble— contains ur to 128 
fully formed characters. All 125 characters o: .e print 
thimble are entirely visible to the operator. 


PRINT RIBBON CARTRIDGE 

Print ribbons are contained in an easily replaceable 
ribbon cartridge. Continuous loop nylon fabric ribbons 
are available in black or red/black inking. An all biack 
multi-strike film ribbon produces sharp, camera ready 
print quality. 


KEYBOARD 

The ModelPS-20 SPINTERM keyboard is divided in- 
to three sections: an alphanumeric 46-key section, a 
control section consisting of 4 operator function keys 
and a 15 key numeric keypad for rapid entry of numer- 
ic data. The keyboard uses ‘’Hall-effect’” key switches 
for high reliability and long life. 


OPERATOR CONTROL PANEL 

The operator control panel provides switches to set 
and operate machine function and configure the inter- 
face operating mode and indicator lights. 


OPERATING NOISE LEVEL 

The SPINTERM is incredibly quiet—only 60 dB with 
the standard cover on, and 67 dB maxi- 
mum with the cover removed. The low 
operating noise level permits the 
SPINTERM to be comfortably used in 
) any office environment. 


f OPTIONAL INTERFACES 


Several interfaces for both models are avail- 
able which meet most user requirements. 


INPUT/OUTPUT UNLIMITED, INC. 


13762 Victory Boulevard © Van Nuys, CA 91401 
(213) 997-7791 


COMPUTROMICS! 


Just hook up the cables and connectors siaglied 
with your SELECTRA-TERM and you're ready to run. 
Input your text and type the single command: LPRINT. 
The SELECTRA-TERM automatically outputs clear, 
clean high fidelity copy. 


SELECTRA-TERM can also be connected 
to the parallel port of PET » Apple Il = 
Heath H8 = IMSAI = Cromemco « Alpha 


F : TOMFARE THIS Microsystems =» Space Byte = North Star 
Incredibly simple! oo. < are ene et Y p 
: se OT MATRIX BUTPIT Horizon » SWTP = Vector Graphic ® Sol s 
cll NG ae eer with the Polymorphic Digital Group # Ohio 
Delivery five weeks. ' | SELECTRA-TERM high Scientific » Altair * Sorcerer = Xitan ® 
Many options available fidelity impact Rex = KIM = Versatile CRT =» EXORcisor 
#115 VAC, 60 Hz Model print! 
M30 
Direct international sales inquiries to A ae 
International Sales Division micro & i 
17648 Orna Drive : computer iS a 


Granada Hills, CA 91344 USA Z cay & 
devices B ¢ 

‘inc. B 

960 E. Orangethorpe, Bidg. F 
Anaheim, California 92801 
Telephone (714) 992-2270 


*TRS-80 is a product of Radio Shack “Innovators to the Microcomputer inaestey? 
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Past Office Box Q 
Philadelphia PA 19105 

Toll free Microline 
800-523-4550 

In Pennsylvania and Can-da 


(215) 665-1112 
microtronix 


1 NCIL WORD PROCESSOR—599.95 


Michael Shrayer's ELECTRIC  ENCIL, highly respected as a superior wor } 
fj erocessor for home computers an’ small businesses, is now available for the 5 
TRS-80! In addition to all s.andard ELECTRIC PENCIL editing and printing A 


FD200 Microfloppy’™ Disk Drive Specifications 


Performance : 
features, this new version offers \ transparent cursor, two key rollover, 
Seek Time 25 msec track to track f (epeating keyboard, upper and lo ercase entry and display (after sim 
modification - documentation inclua.d) or upper case only in unmodifie 
Head Settling Time 10 msec (last track addressed) TRS-80's, THE ELECTRIC PENCIL runs orinters using Redio Shack's expansio 
interface or wikl operate RS-232 and 20-mil current loop printers using our 
Head Loading Time 35 msec (maximum) TRS232 printer interface. LEVEL-I or (EVEL-II 16K computers may be used. @ 
Error Rate (Maximum) 1 per 109 recoverable 1 per 1912 he eet is alot gare a whole mew woric of practical applications for é 
Head Life 20.000 hours (normal use) cs : 
‘ * RSM-2D: A NEW MONIT! TRS- !—$29. 
Media Life 3 milllon passes on a single track SM-2D: A. NEW MONITOR FOR BO DISK SYSTEMS!— 529.95 + 
oy Finally, a monitor for disk users! This new program includes all the 
ov Disk Speed 300 rpm + 15% features of our popular RSM-1S, plus it reads and writes SYSTEM tapes, has a 
- r + % 2-80 BREAKPOINT routine, reads and writes DISK SECTORS directly, and PRINTS 
Instantaneous Speed Variation 1.0% using either the Radio Shack Interface or our ow TRS232i Three versions on§ 
Start/Stop Time 1 second (maximum) gone disk to load at the top of 16K, 32K or 48K computers. 


RSM-IS: A MACHINE LANGUAGE MONITOR FOR THE TRS-80—$23.95 


fa RSM-1S provides you with 22 commands which interact directly with the 2-8u i 
@ processor in your TRS-80. You may examine your POM'S, test your RAM, enter 


Recording Parameters 


2 
Transier Rate 125/250 bits/sec fq and execute machine language programs, read and w. machine language 
in nsi inst track 2768/5536 bpi gi tapes, and much more! A SYMBOLIC DUMP command disassembles object code 
Record g Dens ty ( side ) p A) displays it as Zilog standard 2-80 mnemonics! Menoty may be display, 
Maximum Bits per Side per Disk’ 1 million/2 miilion HEX or either of two ASCII formats, and can be EDITED, MOVED, EXCHA .& 
7 VERIFIED, FILLED, ZEROED, TESTED, or SEARCHED for cne or two-byte codes, B 
Maximum Bits per Track 25,000/50.000 Memory display commands may be stepped with SPACE, or aborted with BREAK. B 


Runs in 4K, 


Specifications 


Performance 

Capacity‘drive: 143,000 

Transfer rate: 250,000 bits ‘second 

Average rotational latency time: 100 msec 

Access time: Track-to-track: 30 msec 
Settling time 40 msec 

Head load time: 75 msec 

Drive motor start time: 1 second 

Rotational soeed: 300 RPM 

Recording density: 5462 BPI 

Recording code: MFM 

Track density’ 48 TP 


IE (#WIRED FOR TRS-80) 
TASE > FAN, 14 AMP SUPPLY a 
aa ea acon (ACCEPTS ALL MINIFLOPPIES BELOW) 
Tall Free: MesKoliAg .#SHUGART 54400 DRIVE (RADIO SHACK) 
800-523-4550 eve, BS TRACK, ONE SIDE..... $349, 
in Pennsylvania and Canada #PERTED FDZOO, 125K, 40TRACK... $249. 
tele AOS Tie. ae (WRITE BUITH SIDES) WITH CASE. $329, 
: microtronix .#MICROPOLIS MACROFLOPPY 1022-1 
cere earn ; 143/315 WITH CASE, SUPFLY..$449, 
1O33-11 DUAL UNIT WITH LEDS, $295, 
CREDIT CARDS ACCEPTED 4 DRIVE CABLE FOR TRE-S0..... 6 SO, 
MICROTRONIX MATCHES ANY FOR MULTIDRIVE SYSTEMS ORDER 
ADVERTISED PRICE. CASE WITH FAN AND AIR CLEANER 
ALSO SEE FACING PAGE. CASE HOLDS PRESENT RS DRIVES 


(ALL FRINTER'SS HAVE BEEN TESTED WITH TAFE AND DIS 
BASED TRS-S0°S AND ARE PROVIDED WITH OFTIONAL CABLES. 
ALL PRINTER UNLESS SFECIFIED ARE FARALLEL AND REGUIRE 
THE RADIO SHACK OR MICROTRONIX EXPANSION INTERFACES. ) 

TENTRONICS Pi. 150 LINE/MIN, DOT MATRIX, LOWER CASE, 

3 SOFTWARE CONTROLLED SIZES, 3" ALUM. FAFER 

RENTRONICS S51 (SAME AS Fi. BUT ONLY REGUTRES $37, 25 
SERIAL INTERFACE, USES LPRINT,LLIST COMMANDDS..... 

EXFANDOR 125P (BLACK BOX) IMPACT, 10 CHAR/SEC, 80 CoOL. 
TRACTOR/FRICTON FEED, UPFER CASE CNLY 

ANDERSON/JACOBSON S41 1/0 BIDIRECTIONAL REBUILT SELECTRIC 
15 CHAR/SEC, LS"CARRIAGE, LOWER CASE.?O DAY DEL..$10%5,. 

T.1.810 7X? DOT MATRIX, 200 CHAR/SEC, 132 COL. TRACT... $1575. 

INTEGRAL DATA IF125, IMPACT DOT MATRIX,140 CHAR/SEC. . $795 
LOWER CASE, TRACTOR $150.,FULL GRAPHICS $200, 

SAUNDERS 1277, TYPOGRAPHICAL MUALITY: 200 CHAR/SEC... 
MULTI-FASS DOT MATRIX, 13 FONTS, ACCEPTS LETTERHEAL 
FOREIGN LANGUAGE FONTS WITH TRS-S0 SOFTWARE $500, 

CABLES PLUS CONNECTORS FOR PRINTER'S...¢25, WIRED 

INTERFACES 
MICROTRONIX EXPANDABLE INTERFACE, WITH PARALLEL FRINTER E 
PORT, TWO JOYSTICKS, STEREO SOUND. OFT. TY COLOR. $125.75 & 
MANY FUTURE OPTIONS INCL. OSE CONTROLLER, S100 
TRS232 SERIAL INTERFACE, OUTPUT ONLY THRU CASSETTE. $37. 75 
LOWER CASE EIT, INCL PARTS, INSTRUCTIONS, SOFTWARE. $12.¢ 
ME MMR Y 
iék UPGRADE EITS,PRIME WITH INST. (SPECIFY LOMATION).. $99, 


SDE TMOG 

UTILITY FARE T CINELUDES UTILITY PROGRAMS U1.U2,Us).. 
U1 LIBLOADER: MERGES SUBROUTINES, FROG. FROM TARE... 4 
Uz STATEMENT RENUMBER:® HANDLES GOSUB,GOTO ETC....... . 
Lis STATEMENT ANALYSIS: LISTS ALL GOTO, GOSUR, ETC....¢ 5 
ELECTRIC FENCIL: WORD PROCESSING SYSTEM W LOWER CASES$?9. 

TURNS YOUR TRE-8O INTO A $1Ok IBM MAG CARD SYSTEM 
DISE UTILITY: PUT FENCIL, TRUG, EDIT/ASSEM ON RISKE...$2. 25 
DATA ENTRY I:FORMAT FREE DISkE DATA ENTRY.......-.26- $95.9 
REPORT GEN. I: CREATE REPORTS FROM DATA ABCVE....... SF 
DISK MONITOR $29. 75,EDITUR/ASSEM $27.75,Z-30 MONITORS23. 
MICROCHESS (4F JENNINGS 1.5 OR 1466 LVL TI SARGON)...$1%.° 


An TYPED WITH ELECTRIC FENCIL.,»TIO S10 (WITHOUT LOWER CASE RM) & 


‘COMPUTRONICS: 


MATHEMATICAL APPLICATIONS SERVICE™ 


1 REN-FRIME FACTORIZATION OF AN INTEGER 


2 REM- BY 

3 REM- OR. PETER SHENKIN 

S CLS 

4@ PRINT " PRIME FACTORIZATION OF AN INTEGER" 


2@ PRINT 

36 PRINT "THIS PROGRAM WILL DETERMINE ALL PRIME FACTORS OF AN INTEGER. 
4@ PRINT 

S@ INPUT "PRESS ENTER TO GEGIN"': 23 
1@@ CLS 

148 PRINT @ 326," " 

126 INFUT "DESIRED INTEGER"; IN 

136 NF=68 

144 CLS 

15@ PRINT "PRIME FACTORS OF "i IN 
16a PRINT 

41706 PRINT "FACTOR NUMBER OF TIMES" 
18@ PRINT SGNCIND 4 

26@ FOR I=2 To IN-i 

zi@ 5-6 

226 IF INI <> INTCIN¢I3 THEN 276 
238 IN = IN/¢I :S= S441: NF=NF+1 
24a 4 86GOTO 228 

276 IF S=@ GUTO 366 

236 PRINT I.5 

296 IF IN<> 1 GOTO 366 

235 GOTO 336 

36@ NEXT I 

3$1@ PRINT 

326 IF NF = @ PRINT IN: " IS PRIME" 
336 PRINT 

34@ INPUT "INPUT 1 FOR ANOTHER NUMBER, @ TO END": 28 
25@ IF Z&@ = 1 GOTO 164 

366 IF Z& = @ END 

37@ PRINT "INPUT ERROR. TRY AGAIN. " 
386 FOR I= 1 TO 3@6:NEXT I 

336 GOTO 344 
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Special 
introductory 


Price: $395 


introducing the 
Vista V80 Mini Disk System 


' 23% MORE STORAGE CAPACITY — Increases your usable storage capac- 
ity 23% from 55.000 to 67,800 bytes on drive one. 


“| FASTER DRIVE — Electronically equal to the TRS-80 Mini-Disk System, but 
up to 8 times faster (Track-to-track access in 5ms for the V80 versus 40ms 
for TRS-80). : 

“| DOES NOT VOID TRS-80 WARRANTY — V80 also has 90-day warranty. 

< HERE’S WHAT YOU GET: 

Minifloppy disk drive/Power Supply/Regulator board/Compact case 

{) DOUBLE DENSITY FOR DOUBLE STORAGE — The V80 will work with the 

Vista double-density expansion unit when available 


” SHIPPED TO YOU READY TO RUN — Simply take it out of the box, plug it 
in and you're ready to run. 


IEY-SAVING COUPON 


To: Vista Computer Company, Dept. 


2909 Oregon Court, Torrance, CA 90503 @ 
(213) 320-3880 LS 


Please send me ___ sé 8200: niit(s). @ $395. 


This is my: © ist ©) 2nd © 3rd © 4th disk drive. (If this is your 1st drive, you need a connecting cable at $29.95.) 
Check here for cable: © 


(In California, add 6% sales tax.) 


I've enclosed: _. Check Ci Money Order 
Please charge to:  / Master Charge c Visa Card No. 
Card Expiration Date Signature 
Name wrk 
Address 
City State/Zip 
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RADIO SHACK COMPUTER OWNERS 
TRS-80 MODEL I AND MODEL II 


™ 


MONTHLY 
NEWSLETTER 


e PRACTICAL APPLICATIONS 

e BUSINESS 

¢ GAMBLING e GAMES 

© EDUCATION 

e PERSONAL FINANCE 

e BEGINNER’S CORNER 

e NEW PRODUCTS 

e SOFTWARE EXCHANGE 

¢ MARKET PLACE 

® QUESTIONS AND ANSWERS 

e PROGRAM PRINTOUTS 
.... AND MORE 


FREE WORD PROCESSING PROGRAM (Cassette or Disk) 


For writing letters, text, mailing lists, etc., with each new subscriptions or renewal. 


LEVEL Ii RAM TEST - 


Checks random access memory to ensure that all memory locations are working properly. 


SEND FOR OUR 36 PAGE SOFTWARE CATALOG (INCLUDING LISTINGS OF HUNDREDS OF TRS-80 PROGRAMS AVAILABLE 
* | ON CASSETTE AND DISKETTE). $2.00 OR FREE WITH EACH SUBSCRIPTION OR SAMPLE ISSUE. 


SOROHHHEEAAOCHOHSHOHOTCHHSOOCHOTEH HO RHEHETAHE HEHEHE HE REESE SEOE EEC ESE EE HEHE EEE RHEE ROSH ETOH EESHOTHOOHHHOOOOEEH OOM 


‘(CONTR TRAOMNECS: HOUR 
Sue her Clty, New York 10956 24 he 
ONE YEAR SUBSCRIPTION $24. edie ans eon (914) 425-1535 

TWO YEAR SUBSCRIPTION = $48:—......... 
SAMPLE OF LATEST ISSUE \ i eee eee 
START MY SUBSCRIPTION WITH ISSUE 
(#1 - July 1978 © #7 - January 1979 @ #12 - June 1979) 
NEW SUBSCRIPTION RENEWAL ______ 
CREDIT CARD NUMBER EXP. DATE 
SIGNATURE 
NAME 
ADDRESS 


*** ADD $6/YEAR (CANADA, MEXICQ) - ADD $12/YEAR AIR MAIL - OUTSIDE OF U.S.A., CANADA & MEXICO *** 


U.S. POSTAGE 
STANDARD 


BULK RATE 
Permit #58 


FORWARDING POSTAGE 
GUARANTEED 
ADDRESS CORRECTION 
REQUESTED 


